Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Паскаль!!!

Паскаль!!! - вопрос №157100

Ввести массив A из 25 элементов.Сформировать массив B из элементов массива A, Кратных трем

 

 

Артём Архипов
05.12.11
Учеба и наука / Информатика
1 ответ

Ответы

Рейтинг: 12 599

Program abc;
uses crt;
var a,b: array[1..25] of integer;
    i,k: integer;
begin
Randomize;
writeln ('Massiv a: ');
k := 0;
for i := 1 to 25 do
  begin
    a[i] := 100-random(50);
    if ((a[i] mod 3) = 0) then
      begin
        k:=k+1;
        b[k] := a[i];
      end;
    writeln ('a[',i,'] = ',a[i]);
  end;
writeln ('Massiv b: ');
for i := 1 to k do writeln ('b[',i,'] = ',b[i]);
readln;
end.
07.12.11

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее