Эквивалентно для любых чисел 1000<n<2000
int arr[4] = { 1020, 1599, 6289, 4434 };
int count = 0;
for (int i = 0; i < 4; ++i) {
int check = (arr[i] \% 100) / 10;
if (check \% 2 == 0) {
++count;
}
}
cout << "Result: " << count << endl;
Var
n:integer;
begin
n:=20;
while n<=320 do begin
Write(n,' ');
n:=2*n
end
end.
Результат работы
20 40 80 160 320
#include <iostream>#include <stdio.h>#include <conio.h>
int main() { setlocale(LC_ALL, "");
int arr[5];
for (int i = 0; i < 5; ++i) { std::cout << "Введите число:"; std::cin >> arr[i]; }
int min = arr[0], max = min;
for (int i = 0; i < 5; ++i) { if (arr[i] < min) min = arr[i]; if (arr[i] > max) max = arr[i]; }
std::cout << min << "\n" << max; _getch(); return 0;}
Это что за шифр?log без параметров не используется
Program enot;
Var a: array [1..22] of integer;
i,h,n,k,c:integer;
l:real;
begin
for i:=1 to 22 do
a[i]:=random(51)-25;
for i:=1 to 22 do
begin
if a[i]>0 then begin c:=c+a[i];
k:=k+1;
end;
l:=c/k;
n:=0;
h:=0;
if a[i]<0 then h:=h+1;
if a[i]=0 then n:=n + 1;
end;
writeln(a[i],'среднее арифметическое= ',l:2:2,'; количество отрицательных = ', h,'; количество равных нулю = ',n);
<span>end.
Вот и вторая задача:
Program enot;
Var a: array [1..4,1..4] of integer;
i,j,s,p,h:integer;
o:real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
a[i,j]:= random(25)-12;
p:=1;
for i:= 1 to 4 do
begin
s:=s+a[i,3];
p:=p*a[i,i];
end;
writeln('summa= ',s,'; произведение= ',p);
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
h:=h+a[i,j];
o:=h/16;
end;
writeln('среднее арифметическое= ',o);
end.<span>
</span></span>