Ребят помогите с информатикой) 1) Дан массив от 0 до 100. Найти минимальный нечётный элемент массива.
2) Дан массив от -100 до 100 написать количество положительных и максимальный элемент массива. Всё нужно по Паскалю, пожалуйста)
Ответы
Ответ дал:
0
1)
USES CRT;
VAR A:array[0..100] of integer;
i,min:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 100 do
begin
A[i]:=random(150);
Write(A[i],' ');
end;
min:=A[0];
for i:=0 to 100 do
if (A[i] < min) and (A[i] mod 2 <>0) then min:=A[i];
Writeln;
Writeln('Минимальный нечетный элемент массива = ',min);
READLN;
END.
USES CRT;
VAR A:array[0..100] of integer;
i,min:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 100 do
begin
A[i]:=random(150);
Write(A[i],' ');
end;
min:=A[0];
for i:=0 to 100 do
if (A[i] < min) and (A[i] mod 2 <>0) then min:=A[i];
Writeln;
Writeln('Минимальный нечетный элемент массива = ',min);
READLN;
END.
Приложения:
Ответ дал:
0
Спасибо огромное))) Только вот как со 2-ым?)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад