Написать программы на Паскале. 1. Вычислить . X - натуральное ...
Написать программы на Паскале.
1. Вычислить 
. X - натуральное число.
2. Среди 10 введённых с клавиатуры чисел подсчитать количество отрицательных и произведение положительных. Рассмотреть случай если отрицательных чисел нет.
Есть ответ
17.12.2022
381
Ответ
1)
uses crt;var x,y,pr:integer;beginread(y,x);pr:=1;repeatpr:=pr*y;x:=x-1;until x=0;write(pr);end.
2)
uses crt;var a:array[1..10] of integer; pr,i,k:integer;beginfor i:=1 to 10 do read(a[i]);clrscr;pr:=1;for i:=1 to 10 do begin if a[i]0 then pr:=pr*a[i]; end;writeln('Исходный массив: ');for i:=1 to 10 do write(a[i],' ');writeln;if k0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');write('Произведение положительных элементов равно: ',pr);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
