Решите информатику. : написать программу, в которой - вопрос №5265042 от Alexandranovik71 17.06.2020 10:08

Question

Информатика: Решите информатику. : написать программу, в которой описать массив из 5 целых чисел, ввести элементы массива с клавиатуры, вычислить сумму всех элементов массива и вывести её на экран.​

Alexandranovik71 · Answer

var  ar: array[1..5]of integer;  i, sum: integer; begin  sum := 0;  for i := 1 to 5 do  begin    read(ar[i]);    sum := sum + ar[i];  end;  write(sum); end....