var d:real;
i,k:integer;
Begin
k:=0;
for i:= 1 to 3 do begin
writeln("Введит число");
read(d);
if (d<0) then k:=k+1;
end;
writeln(k);
End.
Program zhn;
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.
Ответ:
program Qwerty;
var a, b, c, d, e, f, g: real;
begin
readln (a, b, c, d, e);
f:=5;
g:=(a+b+c+d+e)/f;
writeln (g);
end.
Объяснение:
Ответ:
var a:array [1..10] of integer;
i:integer;
b:integer;
begin
for i:=1 to 10 do
if (a[i]>12) and (b=0) then b:=a[i] else if a[i]>12 then b:=b*a[i];
writeln (b);
end.
Объяснение:
Берем массив а под линейную таблицу. Создаем цикл фор, который проверяет сначала если наша переменная с ответом=0 и элемент массива>12, то наш ответ=элементу массива, после этого если элемент массива>12, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.
Переведите из PascalABC в C++ var p3,h,p,p1: array[1..2000000] of int64; i,n,j,u,l,kf,x,o,p2:int64; begin u:=0; read(n,x);p2:=0;
Mari777 [180]
Объяснение: почти все компиляторы имеют ограничение по оперативной памяти, а программа требует ее в количестве Дохрена , потому пришлось использовать либо вектора либо динамичнские массивы(я выбрал динамические )
#include <iostream>
using namespace std;
int main()
{
long long *p = new long long[2000000];
long long *p1 = new long long[2000000];
long long *p3 = new long long[2000000];
long long *h = new long long[2000000];
long long n, u{0}, kf, x, o, p2{0};
cin >> n >> x; //n=1 x=2
for (long i = 0; i < n; i++)
cin >> h[i]; //=3
cin >> kf; //=5
for (long i = 0; i < kf; i++)
{
cin >> p[i];
if (p[i] == 1)
cin >> h[n++];
if (p[i] == 2)
p2++;
if (p[i] == 3)
{
long long l{0};
cin >> p3[u];
p3[u] += p2 + 1;
for (long long j = p2; j < p3[u] - 1; j++)
if (h[j] >= x)
l++;
u++;
cout << l << endl;
};
};
delete[] p, p1, p3, h;
}