+ 
+ 
+ 
... 
var a: array [1..10] of integer;
var i,s: integer;
begin
randomize();
for i:=1 to 10 do
a[i]:=random(10)+1;
//В столбик
for i:=1 to 10 do
writeln(a[i]);
//В строчку
writeln();
for i:=1 to 10 do
write(a[i],' ');
//Среднее арифметическое
s:=0;
for i:=1 to 10 do
s:=s+a[i];
writeln();
writeln('Среднее арифметическое: ',s/10);
// количество элементов массива, значение которых равно 4
s:=0;
for i:=1 to 10 do
if (a[i]=4) then s:=s+1;
writeln('Количество элементов массива,',
' значение которых равно 4: ',s);
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;
}
}
Подробнее - на -
Объяснение:
Объяснение:
1)
var i:integer; s:real;
begin
s:=0;
for i:=1 to round((30-1)/0.5)+1 do
s:=s+i*0.5+0.5;
writeln('s = ',s:6:1);
end.
Результат:
s = 914.5
2)
const e=0.1;
var i:integer; s:real;
begin
i:=1;
s:=2;
while 2/i>e do
begin
s:=s+2/i;
i:=i+1;
end;
writeln('s = ',s:5:2);
end.
Результат:
s = 9.20