Решите информатику. : написать программу, в которой - вопрос №2657195 от hakobov2017 02.12.2020 01:15

Question

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

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