Регистрация
Cheather
26.11.2020 02:03
Информатика
Есть ответ 👍

ЗА 1 ПРИМЕР ПО ИНФОРМАТИКЕ А1:D2​

229
445
Посмотреть ответы 2

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

Ильдар21111
Ильдар21111
4,4(51 оценок)

Проверил в excel

Все правильно понял?


ЗА 1 ПРИМЕР ПО ИНФОРМАТИКЕ А1:D2​
ivanovaa750
ivanovaa750
4,5(77 оценок)
1)     var   a: array[1..100]of real;   n,p,q,q1: real;   i: integer;     begin       for i: =1 to 100 do         begin           read(a[i]);           if a[i]> =0 then             begin               p: =p+a[i];               q: =q+1;             end;           if a[i]< 0 then           begin             n: =n+a[i];             q1: =q1+1;           end;       end;     writeln('positive: ',p/q);     writeln('negative: ',n/q1);   end. 2)           uses crt; var n: real; i: integer;   begin   n: =0.5;   write('  pounds','            kg');   writeln;     for i: =1 to 20 do       begin       write ('      ',n,'            ', n*0.4);       n: =n+0.5;       writeln;       end;       end. 3)   uses crt; var x: integer;   begin   write(' x','              y');   writeln;     for x: =-5 to 5 do     begin           write(x,'            ');           write(5*(x**x)+1);           writeln;     end;     end.

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