const n = 20;
var
a, b: array[1..n] of integer;
i, count: integer;
begin
for i := 1 to n do begin
a[i] := 1 + random(5);
b[i] := 1 + random(5);
if(a[i] = b[i]) then begin
writeln('Номер: ', i, ' Значение: ', a[i]);
inc(count);
end;
end;
if(count = 0) then writeln('Совпадений нет');
end.
1 символ = 1 байт
* умножить
500*2500=1250000байт
На С++
#include <iostream>
using namespace std;
int main()
{
int a[6]={5, 9, 9, 8, 7, 6};
int i;
for(i=0; i<6; i++)
{
cout<<a[i]<<" ";
}
return 0;
}
В программе задается и выводится на экран массив а из чисел 5, 9, 9, 8, 7, 6
Var n,s,i:integer;
begin
write('Введите число: ');
Readln(n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln('s=',s);
<span>end.</span>