profile

Опубликовано 5 лет назад по предмету Информатика от garfild214

Процедуры и функции.

паскаль

 

Даны 2 одномерных массива 10 целых чисел.

Найти сумму квадратов всех элементов массива для которых выполняется неравенство 0<x<10

  1. Ответ
    Ответ дан dw18exdva

    program a;

    var i,n :integer;

    a,b,c :array [1..10] of integer;

     

    begin

    for i:=1 to n do begin

    readln(a[i],b[i]);

    end;

     

    for i:=1 to 10 do begin

    if (a[i]>0) and (a[i]<10) then

    if (b[i]>0) and (b[i]<10) then

    c[i]:=a[i]*a[i]+b[i]*[b];

    endif;

    endif;

    end;

     

    for i:=1 to n do begin

    writeln('C[',i,']=',c[i]);

    end;

    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Хаааа
Математика - 3 недели назад

150+150=?

Хаааа
Математика - 3 недели назад

150+150=?

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Дашка
Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.