1) получение информации: a) Мама фотографируется со своими детьми для семейного фотоальбома b) Пятиклассник - id1318005220210408 от Nikita45Nikita45 08.04.2021 08:44

Question

Информатика: 1) получение информации: a) Мама фотографируется со своими детьми для семейного фотоальбома b) Пятиклассник заполняет на компьютере таблицу наблюдения за повадками кошки c) Ученик музыкальной школы слушает объяснение преподавателя d) Папа слушает по авторадио информацию о пробках на дороге e) Бабушка пробует на вкус пирог, приготовленное по новому рецепту 2) хранение информации a) Ученик смотрит видео урок по время дистанционного обучения b) Родители получают SMS-сообщение о результатах успеваемости

Nikita45Nikita45 · Accepted Answer

Program massiv;
uses crt;
type
matr=array[1..10] of integer;
var
a: matr;
procedure vvod(var a:matr);
var
i: integer;
begin
for i:=1 to 10 do
begin
write ('Введите элемент массива a[',i,']');
readln(a[i]);
end;
end;
procedure ivyvod(var a: matr);
var i: integer;
begin
write ('Исходный массив ');
for i:=1 to 10 do
write (a[i],' ');
writeln;
end;
procedure sort(var a:matr);
var
i,j,min: byte; vsp: integer;
begin
for i:=1 to 9 do
begin
min:=i;
for j:=i+1 to 10 do
if a[j]<a[min] then min:=j;
vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp;
end;
end;
procedure vyvod(a:matr);
var
i:integer;
begin
write('Отсортированная последовательность массива ');
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then write(' ',a[i]);
end;
end;
begin
vvod(a);
ivyvod(a);
sort(a);
vyvod(a);
end.

MOGZ ответил