ответ на весь СОР Задание 1.
1) Команда
2) 4
Задание 2.
7А | Занятие | Оценка
Руслан, футбол: 5
Арина, гимн-ка: 4
Венера, плавание: 5
Задание 3.
1. По тексту от А к Я или от Я к А
2. По числам от наименьших к наибольшим или от наибольших к наименьшим
3. По датам и времени от старых к новым или от новых к старым
Задание 4.
(a) 6
(b) 5
Задание 5.
Не равно первый
Не равно второй
var
a,b,c:array [1..20] of integer;
i,k,l:integer;
begin
randomize;
k:=1;
l:=1;
writeln ('Исходный массив: ');
for i:=1 to 20 do
begin
a[i]:=random(9)+1;
if a[i] mod 2 = 0 then
begin
b[k]:=a[i];
inc(k);
end else
begin
c[l]:=a[i];
inc(l);
end;
write (a[i],' ');
end;
k:=k-1;
l:=l-1;
writeln;
writeln ('Массив четных чисел');
for i:=1 to k do write (b[i],' ');
writeln;
writeln ('Массив нечетных чисел');
for i:=1 to l do write (c[i],' ');
writeln;
readln;
end.
var
a:array [1..5,1..5] of integer;
i,j:integer;
f:boolean;
begin
randomize;
f:=false;
writeln ('Исходный массив: ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(12)-3;
if (i=j) and (a[i,j]<0) then f:=true;
write (a[i,j]:3);
end;
writeln;
end;
if f=true then begin
writeln ('Полученный массив: ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if (i=j) then a[i,j]:=0;
write (a[i,j]:3);
end;
writeln;
end
end else writeln ('На главной диагонали нет отриц. эл.');
readln;
end.
Имена полей: "Команда"; "И"; "В": "Н"; "П"; "Очки" (можете выбрать любое)
Объяснение:
Количество записей: 4
Вроде так. Удачи