Регистрация
aydansuper12
24.05.2023 08:01
Информатика
Есть ответ 👍

Дан массив из 20-ти элементов - случайных целых чисел в диапазоне от 20 до 70 Найти в этом
массиве минимальное чётное число и минимальное нечётное число.
Паскаль

188
255
Посмотреть ответы 2

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

varich83
varich83
4,4(75 оценок)

const N = 20;

const MAX = 70;

const MIN = 20;

var A: array [1..N] of integer;

var i,c1,c2: integer;

begin

randomize();

c1:=-1;

c2:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 write(A[i],' ');

 if (A[i] mod 2 = 0) then  

   if (c1=-1) or (A[i]<A[c1]) then c1:=i;

 if (A[i] mod 2 <> 0) then  

   if (c2=-1) or (A[i]<A[c2]) then c2:=i;

 end;

writeln();

if (c1<>-1) then writeln('Минимальное четное: ',A[c1]);

if (c2<>-1) then writeln('Минимальное нечетное: ',A[c2]);

end.

elinochek1
elinochek1
4,4(10 оценок)
1. 300dpi≈115  точек/сантиметр размер изображения≈115*(5*10)=115*50=5750  точек 8  бит=1 байт информационный объем≈5750*1=5750  байт≈5,62кбайт 2. информационный объем этой картинки=65536* 16=1048576 бит=131072  байт=128 кбайт3. 2  в стtпени x= 16777216x=24информационный объем=24* 240000=5760000 бит=720000 байт=703,125 кбайт≈0,69 мбайт

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