Решите информатику. : написать программу, в которой - вопрос №265385 от FACCE 01.02.2020 17:12

Question

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

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