Решите информатику. : написать программу, в которой - вопрос №5265217 от katehell11 07.04.2022 07:22

Question

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

katehell11 · 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....