Задача 1 Var i,sum:integer; mas:array [1..10] of integer; Begin for i:=1 to 10 do begin mas[i]:=random(20); write(' ',mas[i]); sum:=sum+mas[i]; end; writeln; write('Среднее арифметическое этих чисел = ',sum/10); End.
Задача 2 Var i,max:integer; Begin readln(i); while (i<>0) do begin if (i>max) then max:=i; readln(i); end; Writeln('Максимальное число: ',max); End.
Var i,sum:integer;
mas:array [1..10] of integer;
Begin
for i:=1 to 10 do begin
mas[i]:=random(20);
write(' ',mas[i]);
sum:=sum+mas[i];
end;
writeln;
write('Среднее арифметическое этих чисел = ',sum/10);
End.
Задача 2
Var i,max:integer;
Begin
readln(i);
while (i<>0) do begin
if (i>max) then max:=i;
readln(i);
end;
Writeln('Максимальное число: ',max);
End.
#include <iostream>
using namespace std;
void main()
{
setlocale(LC_ALL, "ru");
int suit = 1;
cout << "Укажите масть - ";
cin >> suit;
cout << endl;
switch (suit)
{
case 1:
{
cout << "Пики";
}
break;
case 2:
{
cout << "Трефы";
}
break;
case 3:
{
cout << "Бубны";
}
break;
case 4:
{
cout << "Червы";
}
break;
default:
cout << "Ошибка ввода";
break;
}
}
Объяснение: