дан массив, содержащий 70 неотрицательных целых чисел, не привышающих 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вы
10-11 класс
|
вести сумму двух соседних элементов массива, имеющих одинаковую чётность. Гарантируется, что в массиве есть соседние элементы, имеющие одинаковую чётность.
program mas;
uses crt;
var A:array [1..70] of integer; i, s: integer;
begin
clrscr;
writeln ('задан массив:');
randomize;
for i:=1 to 70 do
begin
a[i]:=random(1000); {или алгоритм ручного ввода}
write (a[i]:5);
end;
for i:=2 to 70 do
if a[i] mod 2 = a[i-1]mod 2 then
begin
s:=a[i]+a[i+1];
writeln (a[i-1],'+',a[i],'='s);
end;
end.
Другие вопросы из категории
элементов, стоящих правее минимального. на паскале
пассивного разветвителя.
1) терминатор
2) активатор
3) концентратор
4) адаптер
5) коннектор
процедура P1 вводит с клавиатуры длину стороны квадрата;
функция F1 вычисляет площадь квадрата;
Процедура P2 выводит на экран результат.
процедура P1 и функции F1 - встроенный в программу
процедура P2 - записывается как отдельный модуль подключаемый к основной программе.
в паскале
Читайте также
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
программирования эффективный алгоритм, позволяющий найти и вывести наибольшую
разность двух чисел, содержащихся в массиве.
языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
объяните решение пожалуйста программу не обязательно писать
программирования алгоритм, позволяющий найти и вывести сумму элементов массива, кратных тринадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на тринадцать. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=30;
var a: array [l..N] of integer;
i,j,s: integer;
begin
for i:=l to N do readln(a[i]);
...
end.
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.