Program CrazyCoder;
var i,n:byte;
k:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Введите кол-во смещений: ');
read(n);
repeat
k:=a[2];
for i:=2 to 9 do
a[i]:=a[i+1];
a[10]:=k;
n:=n-1;
until n=0;
writeln('Результат:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end<span>.</span>
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
#include <iostream>#include <conio.h>
using namespace std;
int main(){setlocale(LC_ALL,"Russian"); cout << "Эта программа будет создавать массив и выводить каждый нечётный элемент." << endl; int si_ze,massiv[200]; cin >> si_ze; for (int i = 0; i < si_ze;i++){ cin >> massiv[i]; } for (int i = 0;i < si_ze;i++){ if (massiv[i]%2 == 1) cout << i << ' '; }
return 0;}
Var a,b:array [1..5] of longint;
c:array [1..10] of longint;
i:integer;
begin
{for i:=1 to 5 do
begin
read(a[i]);
end;
for i:=1 to 5 do
begin
read(b[i]);
end;} Это раскомментировать, если надо считывать массив из файла
for i:=1 to 10 do
begin
if i<6 then c[i]:=a[i] else c[i]:=b[i-5];
end;
end. // В массив c записываются значение массивов a,b