Предмет:
Другие предметыАвтор:
jaelynnburnettАвтор:
onievjmeДобавить свой ответ
Предмет:
Английский языкАвтор:
verónicamdxcОтветов:
Смотреть
Как сделать так что бы программа выводила наименьшее число?
var
a, b, c: integer;
d: array [1..10] of integer;
begin
for b := 1 to 10 do
begin
write('Bведите число ', b, ' ');
d[b] := random(100) + 100;
writeln(d[b]:4);
end;
b := d[1];
c := 1;
for b := 2 to 10 do
begin
if d[b]>a then
begin
a := d[b];
c := b;
end;
end;
write('Самое большое число под номером ', c, ' это число ', a);
end.
Предмет:
ИнформатикаАвтор:
deaconul58Ответов:
Смотреть
Предмет:
МатематикаАвтор:
jaidynnoteОтветов:
Смотреть
Предмет:
Русский языкАвтор:
jordynu24gОтветов:
Смотреть