помогите срочно!!! 10 класс
10-11 класс
|
составить программу,которая вводит элементы массива с клавиатуры (10 элементов) и выводит только четные элементы
program E01;
uses crt;
var
X: array[1..50] of integer;
S,i: integer;
begin
clrscr;
writeln('Введите 10 элементов массива: X');
for i:=1 to 10 do
begin
writeln('X[',i:2,'] ==> ');
readln(X[i])
end;
writeln('Четные элементы массива: ');
for i:=1 to 10 do
begin
S:=X[i] mod 2;
if S = 0 then
writeln(X[i],' ')
end;
if S <> 0 then
writeln('Нет четных чисел!')
end.
Так конкретно только 10 элементов? Второе, на чем программу надо? И третье, массив одномерный или многомерный (вектор,матрица)?
конкретно 10 элементов,писать на паскале,массив одномерный
Хорошо секундочку
Другие вопросы из категории
Задано цикл For i:= 0,2 to 0,5 do Скільки разів
повториться даний цикл?
их номера.
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0
максимальный a[4]=10
минимальный a[8]=-10
Читайте также
2) каждого столбца.
3) каждой строки.
10 класс... плизз...
Помогите пожалуйста 10 класс . много чего ещё не понимаю
1) Определите сумму четных чисел до числа N введённые с клавиатуры
N=10
S=2+4+6+8+10=30
2) Составить программу которая вводит с клавиатуры число N и определяет произведение всех чисел
N=4
P=1*2*3*4=24
помогите пожалуйста