Регистрация
fedoseeva3335
21.05.2023 16:33
Информатика
Есть ответ 👍

Составьте программу,которая формирует массив из шестнадцати случайных целых чисел от-20 до 20 и находит индексы четных элементов;

127
133
Посмотреть ответы 2

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

dashasm06
dashasm06
4,6(70 оценок)

program abc;

uses crt;

var

  a: array[1..16] of integer;

  k,i,n: integer;

begin

randomize;

for i: =1 to 16 do

    begin

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

    write(a[i],' ');

    end;

writeln;

for i: =1 to 16 do begin if (a[i] mod 2=0) and (a[i]< > 0) then write(i,' '); if a[i]< 0 then k: =k+1 end;

writeln;

end.

ТаяDuda2133
ТаяDuda2133
4,8(6 оценок)

оплалвлыжчювлхвьмшәдкшлмоақк

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