ПРОШУ ПОМОГИТЕ РЕШИТЬ! 10 КЛАСС

9.
Могут ли у разных объектов быть одинаковыми модели?

А) нет;

Б) да, но
только для конструктивных (искусственных, со­зданных людьми) объектов;

В) да.






12.
Какие из приведенных ниже моделей являются статическими? Выбрать три правильных
ответа.

А) карта
местности;

Б) дружеский
шарж;

В) программа,
имитирующая движение стрелок циферблата на экране дисплея;

Г) план
сочинения;

Д) график
изменения температуры воздуха в течение дня.


13.
Какие из утверждений являются верными? Выбрать два правильных ответа.

А)
математическая формула является информационной моделью;

Б) график
движения поезда - табличная статическая модель;

В) план дома
- графическая детерминированная модель, опи­сывающая структуру объекта;

Г) турнирная
таблица чемпионата по футболу - эталонная динамическая модель.

integer;//тип матрицы n,m,i,j:byte;//переменные - размеры матрицы, счетчики циклов sm,b:integer;//сумма, переменная для чтения чисел s1,s2:set of byte;//множества чисел от 0 до 255 begin clrscr;//очищаем экран randomize;//генерация псевдо-случайных чисел repeat write('Количество строк='); readln(m); until m in [1..nmax];//проверяем правильность ввода repeat write('Количество столбцов='); readln(n); until n in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to m do//выводим матрицу по строкам begin for j:=1 to n do begin a[i,j]:=random(20);//случайные числа от 0 до 19 write(a[i,j]:4); end; writeln; end; writeln; writeln('Множество S1:'); s1:=[];//пустое множество for i:=1 to m do begin b:=random(m)+1;//наполняем случайными числами от одного до количества строк s1:=s1+[b];//записываем в множество end; for i:=1 to m do if i in s1 then write(i,' ');//выводим элементы множества на экран writeln; writeln('Множество S2:'); s2:=[]; for i:=1 to n do begin b:=random(n)+1; s2:=s2+[b]; end; for i:=1 to n do if i in s2 then write(i,' '); writeln; writeln; sm:=0;//сумма пока ноль for i:=1 to m do//идем по матрице for j:=1 to n do if(i in s1)and(j in s2) then sm:=sm+a[i,j];{если номер строки и номер столбца есть в соответствующих им множествам, суммируем} write('Сумма=',sm);//выводим сумму на экран readln; end.

Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:

program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.

Помогите пожалуйста 10 класс . много чего ещё не понимаю
1) Определите сумму четных чисел до числа N введённые с клавиатуры
N=10
S=2+4+6+8+10=30
2) Составить программу которая вводит с клавиатуры число N и определяет произведение всех чисел
N=4
P=1*2*3*4=24
помогите пожалуйста

Даю 25 баллов, но если будет решены все 10.