1.Одномерный массив целых чисел вводится с клавиатуры. Записать на место элементов с чётными номерами нули, на место элементов с нечётными номерами – единицы. Размерность массива выберите произвольно. 2. В массиве хранятся свед...

1.Одномерный массив целых чисел вводится с клавиатуры. Записать на место элементов с чётными номерами нули, на место элементов с нечётными номерами – единицы. Размерность массива выберите произвольно. 2. В массиве хранятся сведения об оценках 25 учеников по 1 предмету. Определить количество неуспевающих по этим предметам учеников. 3. Вычислить сумму отрицательных элементов одномерного массива вещественных чисел, введённого с клавиатуры. Размерность массива выберите произвольно. ПОМОГИТЕ ПОЖАЛУЙСТА ,НУЖНО НАПИСАТЬ ПРОГРАММЫ В PASCAL(ABC)
Гость
Ответ(ы) на вопрос:
Гость
1) Program n1; const n=5; var a: array [1..n] of integer; i: integer; begin for i:=1 to n do readln(a[i]); for i:=1 to n do if( i mod 2=0) then a[i]:=0 else a[i]:=1; for i:=1 to n do writeln(a[i]); end. 2) Program n2; const n=25; var a: array [1..n] of integer; i,k: integer; begin randomize; for i:=1 to n do begin a[i]:=random(5)+1; if a[i]<3 then k:=k+1; end; writeln(k); end. 3) Program n3; const n=5; var a: array [1..n] of integer; i,S: integer; begin S:=0; for i:=1 to n do readln(a[i]); for i:=1 to n do if (a[i]<0) then S:=S+a[i]; writeln(S); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы