сервис вопросов и ответовПомогите со 2 и 3 задачей
10-11 класс|
|
Прикрепленные изображения
Abramovavalien
13 марта 2014 г., 22:30:14 (10 лет назад)
Bayash1983
14 марта 2014 г., 1:16:44 (10 лет назад)
2) uses crt;
const
n = 100;
var
a: array[1..n] of integer;
b: array[1..n] of integer;
i, m, k: byte;
begin
clrscr;
write('Количество элементов: ');
readln(m);
for i:=1 to m do
begin
write('A[',i,']: ');
readln(a[i]);
end;
clrscr;
k:=0;
for i:=1 to m do
if i mod 2 <> 0 then
begin
inc(k);
b[k]:=a[i];
end;
writeln('Массив A:');
for i:=1 to m do
write(a[i]:4);
writeln;
writeln('Массив B:');
for i:=1 to k do write(b[i]:4);
readln;
end.
3)
Ответить
Другие вопросы из категории
Автомат получает на вход четырехзначное десятичное число. По этому числу строится новое число по следущим правилам 1. Складываются первая и вторая, а
также третья и четвертая цифры 2. Полученные два числа записываются другза другом в порядке возрастания( без разделителей) Пример 8754. Суммы 8+7=15; 5+4=9. Результат 915 Какое из следующих чисел является результатом работы автомата 1) 219 2) 118 3) 1411 4) 151 подробное вычисление заранее спасибо)
Читайте также
Помогите составить блок схему к задачи Pascal
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.
Помогите пожааалуйста,вообще нереально сделать(задачи зависят друг от друга) 1.заполнить массив из 100 элементов случайными числами.вывести на
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
Всем привет. Помогите, пожалуйста, разобраться с этой задачей. Как ее решить в Pascal.
"Вычислить сумму элементов строки, проходящей через первый нулевой элемент побочной диагонали матрицы Q(30,30)."
Вы находитесь на странице вопроса "Помогите со 2 и 3 задачей", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.