Var

Вывести на экран все числа из интервала (А, В), числа стоящие за ними, произведение этих чисел.

килобайтах.

Пользователь вводит одномерный массив(1..15).Вывести его в обратном порядке и посчитать произведение элементов.

Посчитать произведение элементов,стоящих на главной диагонали массива 4:4,введенного пользователем.Сам массив выписать

Дан целочисленный массив из 20 элементов.Элементы массива могут принимать целые значения от 0 до 10000 включительно.Опишите их алгоритм,позволяющий найти и вывести макс. значение среди трехзначащих элементов массива,не делящихся на 9.Если в исходном массиве нет элементов,которые явл. трехзнач. числов,при этом не кратно 9,то выведет сообщение не найдено.

var i: integer;

begin for i:=1 to 10 do

begin

mas1[i]:=random(n);

Write(mas1[i]:3);

end;

end.

//Задан одномерный массив,вывести на печать все элементы, которые равны первому.
const n=5;
Var A:array[1..n] of integer;
i:integer;
Begin
// Формируем и выводим массив
Writeln(' Массив: ');
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(A[i]:2);
end;
Writeln();

// Находим элементы, которые равны первому.
Writeln(' Первому элементу равны:');
For i:=1 to n do
begin
If (A[1]=A[i]) then
Write(A[i]:2)
end;
end.

• var a: array [1..20] of integer;
• type myarray=array [1..20];
var b: myarray;
• var sd: array [1..n] of integer;
• var dd: array[1] of integer;

while k < 25 do begin

s:=s+k;

k:=k+2;

end;

write(s);

end.