Регистрация
hdjeugwcwtixuvbekz
07.01.2020 09:08
Информатика
Есть ответ 👍

Найти номер второго элемента, кратного 5. массив заполняется случайными числами из промежутка [-12; 12].

169
344
Посмотреть ответы 2

Ответы на вопрос:

Конецначала
Конецначала
4,7(81 оценок)
Program n1; const n=10; var a: array[1..n] of integer; i,num,kt: integer; begin randomize; kt: =0; num: =0; for i: =1 to n do begin a[i]: =random(25)-12; write(a[i],' '); end; for i: =1 to n do if a[i] mod 5=0 then begin num: =i; kt: =kt+1; if kt=2 then break; end; writeln; write(num); end.
Ekaterina152005
Ekaterina152005
4,4(33 оценок)
Var a: array[1..15] of integer; i: integer; begin for i: = 1 to 15 do       begin       a[i]: =random(20)+1;       write(a[i],' ')       end; writeln; for i: = 1 to 15 do       begin       if a[i]< 10 then a[i]: =a[i]*2;       write(a[i],' ')       end; end.

Популярно: Информатика