В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Klot0708
Klot0708
22.10.2022 11:38 •  Информатика

Вмассиве хранится информация о стоимости. определить сколько стоит самый дорогой автомобиль

Показать ответ
Ответ:
Tyan789
Tyan789
13.01.2020 05:44

1)

const n=31;

var a:array[1..n] of integer;

i,s,k:integer; 

begin

Randomize;

for i:=1 to n do

 begin

 a[i]:=random(41)-20;

 write(a[i]:4);

 end;

writeln;

s:=0; k:=0;

for i:=1 to n do

 if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;

writeln('Средняя температура дней с оттепелью = ',s/k:4:2);

end.


Пример:

 -7  4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12  3-20  6 -8-14 -8 18 17  6 -9 16 10 17 20-15

Средняя температура дней с оттепелью = 13.00


2)

const m=10;

var a:array[1..m] of integer;

i,s:integer; 

begin

Randomize;

for i:=1 to m do

 begin

 a[i]:=random(21);

 write(a[i]:4);

 end;

writeln;

s:=0;

for i:=1 to m do 

 if i mod 2 = 1 then s:=s+a[i];

writeln('s = ',s);

for i:=1 to m do 

 if i mod 2 = 0 then a[i]:=s;

for i:=1 to m do write(a[i]:4);

writeln;

end.


Пример:

 14   9   0   8   6   2   2  16   1  16

s = 23

 14  23   0  23   6  23   2  23   1  23


Подробнее - на -

0,0(0 оценок)
Ответ:
agentboy
agentboy
02.02.2022 20:29

const n=5;

var a:array[1..n,1..n] of integer;

i,j,k,m:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(599)-299;

write(a[i,j]:5)

end;

writeln

end;

writeln;

for i:=1 to n do if a[i,3]>0 then k:=k+1;

if k>0 then writeln('В 3-ем столбце количество положительных элементов равно: ',k)

else writeln('В В 3-ем столбце нет положительных элементов');

writeln;

m:=a[1,1];

for i:=1 to n do

for j:=1 to n do

if a[i,j]>m then m:=a[i,j];

for i:=1 to n do

begin

for j:=1 to n do

begin

if a[i,j] mod 2 = 0 then a[i,j]:=m;

write(a[i,j]:5)

end;

writeln

end;

writeln;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота