Задачки на паскале для 7 класса

[Ericnex]

Составить программу, которая за один проход цикла находит 2 минимальных элемента одномерного массива (содержащего не менее 10 элементов) и выводит найденные числа в порядке их возрастания

[D@rkD@iver]

пиши сделаю за WMR

[Loky]

Сделаю за 100р. аська - 255два34три

[Grag]

Ericnex, 50 руб. устроит???

Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[pproger]

не знаю я ваших паскалей, но все же вот

var
mass : array[1..10] of integer;
i, min1, min2 : integer;
begin
for i := 1 to 10 do begin
write('Mass[', i, '] = ');
readln(mass[i]);
end;

min1 := mass[1];
min2 := mass[2];

for i := 3 to 10 do begin
if (mass[i] < min1) or (mass[i] < min2) then
if min1 > min2 then
min1 := mass[i]
else
min2 := mass[i];
end;

writeln;

if (min1 <= min2) then begin
writeln(min1);
writeln(min2);
end
else begin
writeln(min2);
writeln(min1);
end;

end.

пс. неслабые задачки у школьников то в 7 классе. мы и в 11 таких не решали