Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN6
.PASPROGRAM masiv2;
TYPE mas=array[1..100] of real;
var a:mas;
min:real;
i,k:integer;
begin for i:=1 to 100 do
a[i]:=random(90);
a[1]:=43.6;
min:=100;
for i:=1 to 100 do begin
if not(i mod 2=0) then begin
if a[i]<=min then begin
min:=a[i]; k:=i
end;
writeln(i, ' ',a[i]:5:2);
end;
if i mod 30=0 then
begin
writeln(k,' ','min=',min:5:2);
readln;
end
end;
readln;
end.
Соседние файлы в папке Alex