Синтез 4
Решите кроссворд. Какое слово получилось по верти-
кали?
1) Наука о методах сбора, хранения, преобразования, от-
правки, получения и использования информации.
2) Системный ... .
3) То же самое, что и папка.
4) «Мозг» компьютера.
5) Вредоносная программа нанести ущерб ком-
пьютеру.
6) Единица измерения количества информации.
7) Материнская ... .
8) Устройство для ввода информации.
Ответы на вопрос:
1) Информатика
2) Блок
3) Директория/каталог (смотря сколько букв)
4) Процессор
5) Вирус
6) Бит
7) Плата
8) Клавиатура/мышь (смотря сколько букв)
const n=20;
var a:array [1..n] of integer;
i,max,maxi,min,mini:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for i:= 1 to n do
begin
if a[i]>max then
begin
max:=a[i];
maxi:=i
end;
if a[i]<min then
begin
min:=a[i];
mini:=i
end
end;
writeln;
writeln('Максимальный элемент ',max,' и его номер ',maxi);
writeln('Минимальный элемент ',min,' и его номер ',mini)
end.
Или (если max или min элемент будет не один)
const n=20;
var a:array [1..n] of integer;
i,max,min:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
min:=a[1];
for i:= 1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]
end;
writeln;
for i:= 1 to n do
begin
if a[i]=max then writeln('Максимальный элемент ',max,' и его номер ',i);
if a[i]=min then writeln('Минимальный элемент ',min,' и его номер ',i)
end
end.
Популярно: Информатика
-
nastiasteinoxz34d24.02.2020 01:04
-
PolinaCat2916.10.2021 09:19
-
daryamoskovskay06.03.2020 06:58
-
karakatitsa120.01.2022 21:03
-
SashaKo942023.10.2021 09:30
-
Elina198708.05.2022 21:11
-
relinaro0928.10.2022 01:45
-
сахарок19111.02.2023 02:22
-
spydemise01.06.2022 15:48
-
valeevinsaf04.09.2020 03:14