1) uses crt;
var i,n,s,mx:integer;a:array[1..1000] of integer;
begin
randomize();
mx:=-100;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx := a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2:integer;a:array[1..1000] of integer;
begin
randomize();
mn1:= 101;
mn2:= 101;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 := mn1;
mn1 := a[i]
end;
end;
writeln('');
writeln(mn2);
end.
Вот хоть бы указывали язык, ей богу.
Паскаль я не знаю, но постарась помочь чем смогу
примерный алгоритм таков
var
space:integer; {Расстояние между квадратами и границами}
a : integer; {сторона квадрата}
rows,columns:integer;{количество строк, столбцов}
i,j:integer;
begin
{Инициализируйте переменные уж как-нибудь сами}
For i:=1 to rows do
begin
For j:=1 to columns do
begin
{рисоватьПрямоугольник(поз X, поз Y, длина, ширина);}
{По позициям начала отрисовки мы пропускаем нужное нам количество
пространства, а именно нужное количество занимаемого места пропусками
и квадратами}
drawRect(space*j+a*(j-1) , space*i + a*(i-1), a,a );
end;
end;
Уроки на неделе
1.Понедельник
1.1.Информатика
1.2.Русский язык
1.3.Литература
2.Вторник
2.1.Английский язык
2.2.Биология
2.3.География
3.Среда
3.1.История России
3.2.ОБЖ
3.3.Физкультура
4.Четверг
4.1.Обществознание
4.2.Черчение
4.3.Религии России
5.Пятница
5.1.Русский язык
5.2.Информатика
5.3.Физкультура
6.Суббота
6.1.МХК
6.2.Физика
6.3.Алгебра
P.S. думаю, что это можно назвать многоуровневым списком
Программа числа и промежуток (в Кумире) Ввод чисел через пробел