Предмет: Информатика,
автор: iaiaj
найдите количество четных чисел в массиве целых чисел.Написать программу в Паскале
iolandavalerypad353:
ааа, это другая задача, щас, минуту
var
a: array[1..10] of integer;
i, Count: integer;
begin
for i := 1 to 10 do
begin
a[i] := i;
Write(a[i], ' ')
end;
Writeln;
for i := 1 to 10 do
if a[i] mod 2 = 0 then
begin
Count := Count + 1;
Write(a[i], ' ');
end;
Writeln;
Write(Count);
Readln;
end.
a: array[1..10] of integer;
i, Count: integer;
begin
for i := 1 to 10 do
begin
a[i] := i;
Write(a[i], ' ')
end;
Writeln;
for i := 1 to 10 do
if a[i] mod 2 = 0 then
begin
Count := Count + 1;
Write(a[i], ' ');
end;
Writeln;
Write(Count);
Readln;
end.
что такое br?
count?
Да где ты тут видишь br? Count это количество четных.
var
....
....
var - это ключевое слово в Паскале, для описания переменных оно нужно
да,хорошо
я другое имелс ввиду
но спасибо
Ответы
Автор ответа:
1
Смотри сюда, нет тут никаких br. В окне вывода внизу первая строка это начальный массив, вторая строка - это четные в массиве, третья строка - количество четных
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: evelina201121
Предмет: Русский язык,
автор: shajmwuajks
Предмет: Английский язык,
автор: sofkssofiya
Предмет: Физика,
автор: utkirbekfazilov
Предмет: Алгебра,
автор: fatii1