<u>Pascal:</u>
var a:array [1..5] of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(31)-15;
write (a[i]:4);
end;
writeln;
for i:=1 to 5 do
begin
a[i]:=a[i]*2;
write (a[i]:4);
end;
writeln;
readln;
end.
<u>C++:</u>
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
{
int a[5];
srand (time(NULL));
for (int i = 0; i<5; i++)
{
a[i] = rand()%15-15;
cout <<a[i] <<" ";
}
cout <<endl;
for (int i = 0; i<5; i++)
{
a[i]*=2;
cout <<a[i] <<" ";
}
return 0;
}
Если введеный X будет четным.
<span>Здесь oписан массив a из 88 целочисленных значени. При выполнении этого оператора в памяти компьютера будет выделено 88 ячеек целого типа.</span>
Program Pr1;
uses crt;
var mas:array[1..20] of integer;
i,v,a,k,x:integer;
Begin
clrscr;
writeln('Vvedite A');
readln(a);
writeln('Vvedite K');
readln(k);
for i:=1 to 20 do begin
writeln('Vvedite ',i,'-ji simvol');
readln(mas[i]);
end;
v:=0;x:=0;
for i:=1 to 20 do begin
if mas[i] mod 2<>0 then v:=v+mas[i];
if mas[i]>a then writeln('>a ',i);
if (mas[i] mod k=0) and (mas[i]>0) then x:=x+1;
end;
writeln('Summa nechetnih - ', v );
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.