1) дан массив целых чисел a[1..8]. найти количество отрицательных элементов массива. 2) дан массив целых чисел a[1..8]. вывести на экран сумму элементов массива, если a[k]=k^2.
1) c:=0 for i:=1 to 8 do begin if a [i]<0 then inc (c); end; writeln (c); 2)c:=0 for i:=1 to 8 do begin c=c+i×i; end; writeln (c);
mursvita943
12.08.2020
численность население через год 1 40000 42000 2 42000 44100 3 44100 46305 переменная 1 = 3 переменная 2 = 46305
FATAHOVAMAINA
12.08.2020
Генетическая информация определяет морфологическое строение, рост, развитие, обмен веществ, психический состав, предрасположенность к заболеваниям и генетические пороки организма. Реализация генетической информации происходит в процессе синтеза белковых молекул с трех типов РНК: информационной (иРНК) (её также называют матричной РНК, мРНК), транспортной (тРНК) и рибосомальной (рРНК). При этом генетическая информация копируется с матрицы ДНК на мРНК в ходе транскрипции, а затем мРНК используется как матрица для синтеза белков в ходе трансляции.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1) дан массив целых чисел a[1..8]. найти количество отрицательных элементов массива. 2) дан массив целых чисел a[1..8]. вывести на экран сумму элементов массива, если a[k]=k^2.
for i:=1 to 8 do begin
if a [i]<0 then inc (c);
end;
writeln (c);
2)c:=0
for i:=1 to 8 do begin
c=c+i×i;
end;
writeln (c);