profile


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

в одномерном массиве из 10 элементов вычислить сумму тех элементов,которые меньше заданного x.Заменить все нечетные их квадратами

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

    Ответ:

    var

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

    i,x,s:integer;

    begin

    read(x);

    for i:=1 to 10 do

    begin

    readln(a[i]);

    if a[i] mod 2<>0 then a[i]:=a[i]*a[i];

    if a[i]<x then s:=s+a[i];

    end;

    write(s);

    end.

    Объяснение:


Другие вопросы