Регистрация
NikoYuqa1
20.01.2023 17:33
Информатика
Есть ответ 👍

Дан линейный одномерный массив, заданный случайным образом, содержащий положительные , отрицательные числа и нули. найдите сумму элементов массива, если среди них есть хоть один элемент больше единицы, и произведение - в противном случае.

249
314
Посмотреть ответы 2

Ответы на вопрос:

hohlovm71
hohlovm71
4,7(43 оценок)
Program z1; var a, i, z, x, y, l: integer; mas: array [1..10] of integer; begin for l: =1 to 10 do readln(mas[l]); i: =0; for a: =1 to 10 do if mas[a]> 1 then i: =i+1; if i > 0 then begin z: =0; for x: =1 to 10 do z: =z+mas[x]; writeln(z); end else begin y: =1; for x: =1 to 10 do y: =y*mas[x]; writeln(y); end; end.
duyquhuseynli
duyquhuseynli
4,4(28 оценок)

var

a,b: integer;

begin

writeln('введите два числа');

  readln(a,b);

if a> b then

writeln ('первое число больше , то есть',a, ')

else

writeln ('второе число больше , то есть',b, ');

end.

 

Популярно: Информатика