Question

Составить 2 программы одномерных массивов (Информатика 9 класс)

Задача 1 - Заполнить одномерн. массив с клавиатуры и найти его минимальное значение
Задача 2 - Заполнить одномерн. массив генератор случайных чисел и найти сумму элементов кратных 7

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

//1
Var
 ar:array[1..5] of integer;
 min,i:integer;
begin
 min:=2147483647;
 for i:=1 to 5 do
  begin
   readln(ar[i]);
   if ar[i]<min then min:=ar[i];
  end;
 write('Min=',min);
end.

Пример ввода:
6
-6
3
4
5
Пример вывода:
Min=-6

//2

Var
 ar:array[1..20] of integer;
 i,s:integer;
begin;
 randomize;
 s:=0;
 writeln('Array:');
  for i:=1 to 20 do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
    if ar[i] mod 7=0 then s:=s+ar[i];
   end;
 writeln;
 write('Sum=',s);
end.

Пример работы программы:
Array:
  13  23  70  67   0  82  16  66  48  54  46  99 100  75  48  33   1  88   9  73
Sum=70