Вопрос по информатике:
1.Одномерный массив целых чисел вводится с клавиатуры. Записать на место элементов с чётными номерами нули, на место элементов с нечётными номерами – единицы. Размерность массива выберите произвольно.
2. В массиве хранятся сведения об оценках 25 учеников по 1 предмету. Определить количество неуспевающих по этим предметам учеников.
3. Вычислить сумму отрицательных элементов одномерного массива вещественных чисел, введённого с клавиатуры. Размерность массива выберите произвольно.
ПОМОГИТЕ ПОЖАЛУЙСТА ,НУЖНО НАПИСАТЬ ПРОГРАММЫ В PASCAL(ABC)
- 08.03.2018 16:31
- Информатика
- remove_red_eye 19136
- thumb_up 23
Ответы и объяснения 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.
- 10.03.2018 00:12
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.