Const n = 50;
var
a :array [1..n] of integer;
i, sum :integer;
sr :real;
begin
randomize;
for i:= 1 to n do
a[i]:= random(100);
for i:= 1 to n do
sum:= sum + a[i];
sr:= sum/n;
writeln(sr);
end.
#include <iostream>
#include <vector>
#include <clocale>
int func(int& x)
{
int result = 0;
while (x > 0)
{
result += x % 10;
x /= 10;
}
return result;
}
int main()
{
std::setlocale(LC_ALL, "Russian");
int size;
std::cin >> size;
std::vector<int> vec(size);
for (int i = 0; i < size; i++)
std::cin >> vec[i];
for(auto& i : vec)
std::cout << func(i) << std::endl;
std::system("PAUSE >> void");
return 0;
}
Var
s:string;
max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
if k>max then max:=k;
if (k<min) or (min=0) then min:=k;
k:=-1;
end;
k:=k+1;
end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
<span>end.</span>
Var
i: integer;
Begin
for i:=1 to 50 do begin
Writeln(i*i);
end;
end.
Var
i, a, even, odd, min, max : integer;
begin
min := 30000;
max := -1;
for i:= 1 to 5 do
begin
read(a);
if (a mod 2 = 0) then
even:= even + 1
else
begin
odd:= odd + 1;
if (a > max) max := a;
if (a < min) min := a;
end;
end;
writeln('четных ', even);
writeln('нечетных', odd);
if (odd = 0)then
writeln('нечетных чисел нет');
else
writeln('min =' min, ' max = ', max);
end.
что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать