Регистрация
Пан2007
02.12.2020 05:05
Информатика
Есть ответ 👍

3D баспа дегеніміз не?​

266
301
Посмотреть ответы 1

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

Andrey7745
Andrey7745
4,6(75 оценок)
Первая: uses crt; var arr: array[1..100] of integer; n,a,c: integer; begin write('сколько чисел вы хотите ввести? -'); readln(n); for a: =1 to n do begin write('введите ',a,' число: '); readln(arr[a]); end; c: =0; for a: =1 to n do begin if   (arr[a] mod 2< > 0) and (arr[a]< 0) then c: =c+1; end; writeln('в последовательности ',c,' нечетных отрицательных чисел.'); end.вторая: uses crt; var arr: array[1..100] of integer; a,b,c,m: integer; beginwrite('сколько чисел вы хотите ввести? -'); readln(b); for a: =1 to b dobeginwrite('введите ',a, ' число: '); readln(arr[a]); end; for a: =1 to b dobeginm: =arr[a]; for c: =1 to 2 dobeginarr[a]: =m*arr[a]; end; end; for a: =1 to b dobegin  writeln('куб ',a,' введенного вами числа равен: ',arr[a]); end; end.

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