Регистрация
masdud2001
12.09.2020 15:17
Информатика
Есть ответ 👍

30 , составить алглормтм для ввода данных на клавиатуре для двумерного массива

182
346
Посмотреть ответы 2

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

GardenBrid
GardenBrid
4,5(35 оценок)
З1: program z; var mas: array [1..10] of integer; i, x: integer; begin for i: =1 to 10 do readln(mas[i]); for x: =1 to 10 do if mas[x] mod 2 = 1 then writeln(mas[x]); end.з2: program z; var mas: array [1..10] of integer; i, x: integer; begin for i: =1 to 10 do readln(mas[i]); for x: =1 to 10 do if (mas[x] mod 2 = 0) and (mas[x] > 0)  then writeln(mas[x]); end.
AnNik08
AnNik08
4,4(73 оценок)
Program ca; var p, i: integer; begin i : = 3; p : = 1; while i < = 23 do begin p : = p * i; i : = i + 2; end; writeln('p = ', p); end.

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