//Я сделаль
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout << " 1 \n";
cout << "------\n";
cout << " M \n";
cout << " MMM \n";
cout << "MMMMM\n";
cout << " M M \n";
cout << " MMM \n";
cout << "------\n";
cout << " 2 \n";
cout << "------\n";
cout << "M \n";
cout << "MM \n";
cout << "MMMMMM\n";
cout << " MM\n";
cout << " M\n";
cout << "------\n";
cout << " 3 \n";
cout << "------\n";
cout << "M M\n";
cout << " M M \n";
cout << " MMMMM \n";
cout << " M M M \n";
cout << " MMMMM \n";
cout << "------\n";
cout << " 4 \n";
cout << "------\n";
cout << " M\n";
cout << " MM\n";
cout << " MMM\n";
cout << " MMMMM\n";
cout << "MMMMMMM\n";
cout << "------\n";
cout << " 5 \n";
cout << "------\n";
cout << "M M\n";
cout << "MM MM\n";
cout << "MMMMM\n";
cout << "MM MM\n";
cout << "M M\n";
}
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.
Begin
write ('1,2,3,4,5');
end.
begin
write ('2,4,6,8,10,12,14,16,18,20');
end.
begin
write ('15,17,19,21,23,25,27,29,31,33,35');
Var a,b,c:integer;
begin
writeln('Введите номер секунды');
readln(a);
b:=a div 3600;
c:=(a - 3600*b) div 60;
writeln(b,' ч ',c,' мин');
<span>end.</span>