Помогите пожалуйста. 1. Дан массив (n*m). Элементы массива ввести случайным способом. Найти сумму элементов которые больше данного числа А. Число А ввести с клавиатуры. 2. Дан массив (n*m). Элементы массива ввести в программе. ...
Помогите пожалуйста.
1. Дан массив (n*m). Элементы массива ввести случайным способом. Найти сумму элементов которые больше данного числа А. Число А ввести с клавиатуры.
2. Дан массив (n*m). Элементы массива ввести в программе. Найти первый элемент, являющийся простым числом и его инедксы.
3. Дан массив (n*m). Элементы массива ввести с клавиатуры. Найти количество четных элементов массива.
Гость
Ответ(ы) на вопрос:
Гостьconst nx=20;mx=20;var i,j,n,S,a,m:integer; D:array[1..nx,1..nx] of integer;
begin
write('Введите размер матрицы n и m');Readln(n,m);
write('Введите число А');Readln(a);
for i:=1 to n do begin
for j:=1 to m do begin
D[i,j]:= random(100)-50;
write(D[i,j]:4);
if D[i,j] > a then S:= S + D[i,j];
end;writeln;end;
writeln;
write('S=',S:5);
end.
Не нашли ответ?
Похожие вопросы