Заполнит массив случайными числами в интервале (20, 100) и подсчитать отдельно числа чётных и нечётных элементов
паскаль

166

232

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

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

DenchikKing

Информатика

4,7(12 оценок)

Uses CRT;

const n = 10

var i,i1,i2:integer;

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

Begin

Randomize;

for i:=1 to n do

a[i]:=random(80)+21;

i1 := 0;

i2 := 0;

for i:=1 to n do

begin

if (a[i] mod 2=0) then

i2+=1

else i1+=1;

end;

Writeln('Количество нечётных =',i1);

Writeln('Кол-во чётных =',i2);

end.

Объяснение:

livadon

Информатика

4,7(51 оценок)

напишем программу, которая будет считать сумму всех чисел от 1 до 1000.

#include < iostream> using namespace std; int main(){ int i; // счетчик цикла int sum = 0; //сумма чисел от 1 до 1000. setlocale(0, ""); for (i = 1; i < = 1000; i++) // задаем начальное значение 1, конечное 1000 и задаем шаг цикла - 1. { sum = sum + i; } cout < < "сумма чисел от 1 до 1000 = " < < sum < < endl; return 0; }