Const
n = 5;
var
a: array[1..n, 1..n] of integer;
i, j, sum: integer;
begin
Randomize;
Writeln('Исходный массив');
sum := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(100) + 1;
Write(a[i, j]:4);
sum := sum + a[i, j]
end;
Writeln
end;
Writeln('Сумма элементов равна ', sum)
end.
Пример выполнения
Исходный массив
78 95 84 80 19
9 98 18 71 52
33 42 27 79 17
91 54 85 50 52
62 98 53 86 59
Сумма элементов равна 1492
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
begin
var a:=ReadReal('Введите число');
Write(a,' ');
if (a<2) or (a>12) then Write('не ');
Writeln('принадлежит интервалу [2;12]')
end.
<u>Примеры</u>
Введите число 3.18
3.18 принадлежит интервалу [2;12]
Введите число 16
16 не принадлежит интервалу [2;12]
Легко-
1)набираешь в обоих воду
2)Выливаешь В
3)Наливаешь А в В
4)Набираешь воду в А
5)Переливаешь воду в В
Так получается А-100 мл
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
---------------------------------
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.