Var s,i,a:integer; //объявляем необходимые переменные
begin
s:=0; //изначально сумма равна 0
write('Введите 10 чисел через enter '); //запрос 10-ти чисел
for i:=1 to 10 do begin //с помощью цикла вводим числа
readln(a);
s:=s+a; // вычисляем сумму(смысл цикла уж не буду расписывать)
end;
write('Сумма 10-ти чисел = ',s); //выводим на экран искомое значение
<span>end.</span>

0 0

4 года назад

Найти произведение положительных элементов по строкам матрицы. Sos

Поклонница Линдем...

Var pol:array [1..1000000] of integer;
n,i,j,x:int64;
begin
read(n);
for i:=1 to n do begin
pol[i]:=1;
for j:=1 to n do begin
read(x);
pol[i]:=pol[i]*x;
end;
end;
for i:=1 to n do begin
write(pol[i],' ');
end;
end.

0 0

3 года назад

Запишите 2 известных вам факта, относящихся к- 1.природным явлениям 2.историческим событиям 3.свойствам объектов 4.зависимостям

Antonina9669

1)1)ветер образуется при столкновении теплого и холодного воздуха 2)дождь образуется из влаги,образующейся в облаках. 2)1)14 декабря 1825г -дексбристское восстание.2)1917-революция 3)(запасное) 1861-отмена крепостного права.
3)1)вода- жидкая 2)лава горячая. 4)1)путь от скорости и времени 2)кол-во затраченного времени от скорости выполнение работы 5)1)укушать надо не руками,а с помощью столовых приборов. 2) Вытирать руки о полотенце или вымыть,а не вытирать о скатерть.

0 0

3 года назад