Ввести элементы массива из 7 элементов. каждый элемент уменьшить на один, вывести изменённый массив на экран. определить сумму элементов измененного массива
2.ввести элемент массива из 10 элементов. сколько элементов массива имеют значение 10,20,30?
3.ввести элементы массива из 8 элементов. определить минимальное число, оканчивающееся на 7

Ответы

Someoneone 10.10.2020 21:29

program vlasov_loc;

var i, s: integer;

var a: array [1..7] of integer;

begin

for i:= 1 to 7 do readln(a[i]);

for i:= 1 to 7 do a[i]:= a[i] - 1;

for i:= 1 to 7 do writeln ('a[', i,'] = ', a[i]);

for i:= 1 to 7 do s:=s+a[i];

writeln ('Сумма элементов нового массива - ', s)

End.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

зика356 10.08.2019 14:20

Что относится к операционной системы ?...

katerinaplachet 10.08.2019 14:20

nata2784 10.08.2019 14:30

полина20042012 23.08.2019 12:30

donczowakateri 04.12.2019 20:27

1234567891241 04.12.2019 20:26

Карисёнок 04.12.2019 20:23

урааа28 04.12.2019 20:22

Решить . с объяснением. а то тему не понимаю....

flint4040p070t0 04.12.2019 20:21

Вариант 24 хелп, сегодня нужно, в языке паскаль, оба ,...

murka1402 04.12.2019 20:21