Практика. Задачи

Заполнить массив из 5 элементов значениями, введенными с клавиатуры, вывести на

6. Заполнить двумерный массив размерности 3*4 значениями, введенными с клавиатуры. Вывести

9. В двумерном массиве размерности 5*6, заполненном случайными значениями, найти минимальное

11. В двумерном массиве mas1 размерности 5*6, заполненном случайными значениями, сосчитать

Mas[i]
Mas[I,j]
Заполнить двумерный массив с клавиатуры:
For i:=1 to 5 do
for j:=1

Program z1;
Var
mas:array[1..5] of integer;
i:integer;
Begin
For i:=1 to 5 do
Readln(mas[i]);
For i:=1 to 5

Program z1;
Var
mas:array[1..5] of integer;
i:integer;
Begin
For i:=1 to 5 do
mas[i]:=random(10);
For i:=1 to 5

Алгоритм нахождения в массиве мин. ,макс. Значений и суммы элементов
Объявить переменные

Оператор многоальтернативного выбора case
Program z2;
Var
Z:real;
A,b:integer;
Oper:char;
Begin
Writeln(Введите числа a и b:);
Readln(a);
Readln(b);
Writeln(Введите знак операции:);
Readln(oper);
Case

Вывод матрицы
program z1;
var
mas:array[1..3,1..4] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1

Перечисляемый тип данных
ЗАДАЧА 1
В зависимости от названия цветка, вывести на экран

Пример
Задача: В зависимости от знака зодиака, определить, к какой стихии он

Program znak_zodiak;
Type
Znak=(oven,lev,strelets,vesi,vodoley,bliznetsi,rak,skorpion,ribi,kozerog,telets,deva);
Var
A:znak;
Begin
a:=deva;
If a<=strelets then writeln(‘огонь');
If (a>vesi) and (a<=bliznetsi) then writeln(‘близнецы');
If (a>=rak)