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

Заполнить массив из 22 элементов случайными целыми числами от 0 до 12
последнему элементу присвоить 11
вывести массив на экран в 1 строку
найти и вывести элементы их позиции которые больше 10
найти сумму элементтв массива кратных 4

Показать ответ
Ответ:
pro68
pro68
23.08.2020 11:23

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

i,s:integer;

begin

write('Массив: ');

for i:=1 to 22 do

begin

a[i]:=random(13);

if i=22 then a[i]:=11;

write(a[i],'  ');

if a[i] mod 4 = 0 then s:=s+a[i]

end;

writeln;

write ('Элементы,которые больше 10,  ');

for i:=1 to 22 do

if a[i] > 10 then write('a[',i,'] = ',a[i],'  ');

writeln;

writeln('Сумма элементов массива, кратных 4, равна ',s)

end.

0,0(0 оценок)
Ответ:
Mimosa1233
Mimosa1233
23.08.2020 11:23

===== PascalABC.NET =====

begin

 var n := 22;

 var a := ArrRandom(n, 0, 12);

 a[a.High] := 11;

 a.Println;

 var s := 0;

 for var i := 0 to a.High do

 begin

   if a[i] > 10 then

     $'a[{i + 1}] = {a[i]} '.Print;

   if a[i] mod 4 = 0 then

     s += a[i]

 end;

 Writeln;

 Println('Сумма', s)

end.


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