Практика. Задачи презентация

печать
В массиве из 5 элементов найти минимальное, максимальное зн-я и сумму всех элементов. Вывести на печать.
Поменять местами первый и последний элементы в массиве из 5 элементов.
В массиве из 10 элементов, заполненном случайным образом, подсчитать число и сумму элементов, кратных 3. Вывести на печать.
Заполнить массив из 5 элементов случайными значениями. Записать в другой массив в обратном порядке. Вывести на печать.

на печать в виде матрицы
7. Заполнить двумерный массив размерности 3*4 случайными значениями.Вывести на печать в виде матрицы.
8. В двумерном массиве размерности 3*4, заполненном случайными значениями сосчитать сумму элементов по строкам м столбцам и вывести на экран в формате:
Сумма элементов в строке <указать номер>= значение
Сумма элементов в столбце < указать номер >= значение

и максимальное значения. Вычислить их сумму.
10. В двумерном массиве размерности 4*5, заполненном случайными значениями,
Сосчитать число и сумму элементов, кратных 4. Вывести на печать в формате:
Число элементов = значение
Сумма элементов = значение

сумму по строкам и результат записать в одномерный массив mas2
12. В двумерном массиве mas1 размерности 5*6, заполненном случайными значениями, все элементы, кратные 3, умножить на 10.
13. В двумерном массиве mas1 размерности 5*6, заполненном случайными значениями, все элементы, кратные 3, умножить на 10 и создать копию массива с новыми значениями.

j:=1 to 7 do
readln(mas[i,j]);
Вывести значение с конкретным индексом
Writeln(mas[2,3];

do
Writeln(‘элемент ’,I,’ =‘,mas[i]);
End.

do
Writeln(‘элемент ’,I,’ =‘,mas[i]);
End.

I,min,max,sum,mas
I,min,max,sum:integer;
Mas:array[1..5] of integer;
Begin
Ввести первое зн-е в массив
Присвоить его min и max
For i:=1 to 5 do
begin
Ввести очередное значение в массив
Если оно больше max, то записать его в max
Если оно меньше min, то записать его в min
S:=s+mas[i];
End;
Вывести на экран переменные max,min,s
end.

oper of
‘+’:z:=a+b;
‘-’:z:=a-b;
‘*’:z:=a*b;
‘/’:z:=a/b
Else
Writeln(‘Неверный знак операции’);
End;
Writeln(‘Результат:’,z);
End.

j:=1 to 4 do
mas[i,j]:=random(20);

for i:=1 to 3 do
begin
writeln;
for j:=1 to 4 do
write(mas[i,j],' ');
end;

end.

название сезона
года, к которому он относится:
Весна: подснежник, ирис,нарцисс
Лето: ромашка, одуванчик, мак
Осень: астра, хризантема, флоксы

Задача 2
По названию города определить страну:
Франция: Париж, Марсель, Ницца
Испания: Мадрид, Толедо, Барселона
Россия: Москва, Новосибирск, Санкт-Петрербург

относится.
Огонь (Овен, Лев, Стрелец)
Воздух (Весы, Водолей, Близнецы)
Вода (Рак, Скорпион, Рыбы)
Земля (Козерог, Телец, Дева)

and (a<=ribi) then writeln(‘вода');
If (a>=kozerog ) and (a<=deva) then writeln(‘земля');
end.