Размер шрифта
A- A+
Межбуквенное растояние
Стандартное Среднее Большое
Цвет сайта
A A A A
Изоображения
Выкл Цвет ч/б
Дополнительно
Закрыть

Составление программ 2(образец решения)

(Задание5, стр. 47 - РТ). Разберите программу, которая запол­няет массив а [1..10] случайными целыми чис­лами в диапазоне от 1 до 10 и выводит на экран первый элемент с четным значением и его индекс. Затем наберите и выполните программу на компьютере.
Program P1;
  Var  A:array[1..10] of integer;
   i, k:integer;
Begin
 For i:=1 to 10 do  A[i]:=Random(10)+1;
 For i:=1 to 10 do  Write(A[i],'  ');
 Writeln;
  k:=0;
 For i:=1 to 10 do
  If A[i] mod 2=0 Then
  begin
     k:=i; Writeln ('Элемент= ',A[k]);
     Writeln ('Индекс= ',k);break
  end;
If k=0 Then  Writeln ('Четных элементов нет');
End.

Разделы сайта