Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дан массив из 10 элементов. Подсчитать сумму трехзначных элементов массива, оканчивающихся нулем.

Ответ оставил Гость

12345678910111213var a:array[1..10] of integer;    i:integer;    k:integer;begin  writeln(Введите массив: );  for i:=1 to 10 do readln(a[i]);  for i:=1 to 10 do      if (a[i] mod 10=0) then inc(k);  writeln(Исходный массив: );  for i:=1 to 10 do write(a[i], );  writeln;  writeln(Количество чисел оканичвающихся нулем равно: ,k);end.