#include "math.h"#include "iostream"
using namespace std;
int main(){int a, n, max, min;int max_i, max_k, min_i, min_k;//ввод размера массиваcin>>a;cin>>n;
//объявление массиваint** a = new int* [a]; for(int i = 0; i < n; i++) { a[i] = new int [a]; }
//ввод первого массива for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { cin>>a[i][k]; } } //Инициализация max, min; max=a[0][0]; min=a[0][0]; //поиск максимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) {<span> if(max<a[i][k])</span><span> {</span><span> max=a[i][k];</span><span> max_i=i;</span><span> max_k=k;</span><span> }</span> } } //поиск минимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) {<span> if(min>a[i][k])</span><span> {</span><span> min=a[i][k];</span><span> min_i=i;</span><span> min_k=k;</span><span> }</span> } }
//Max and Min меняются местамиswap(a[max_i][max_k],a[min_i][min_k]);getch();return 0;<span>}</span>
Uses
GraphABC;
var
radius, x, y: integer;
procedure DrawRing(x, y, radius, main_radius: integer);
var
r: integer;
begin
DrawCircle(x, y, radius);
r := radius div 2;
if r >= main_radius / 5 then begin
DrawRing(x + r, y + r, r, main_radius);
DrawRing(x - r, y + r, r, main_radius);
DrawRing(x + r, y - r, r, main_radius);
DrawRing(x - r, y - r, r, main_radius);
end;
end;
begin
Window.Maximize();
FloodFill(0, 0, clBlack);
Pen.Color := clAquamarine;
Pen.Width:=2;
x := Window.Center.X;
y := Window.Center.Y;
radius := random(Min(Window.Width, Window.Height) div 2);
DrawRing(x, y, radius, radius);
end.
Var
a: integer;
begin
readln(a);
if a mod 10 = a div 100 then
writeln('TRUE')
else
writeln('FALSE');
<span>end.</span>
Этой игрой была: Spacewar, а призом была годовая подписка на Rolling Stones, и как это не странно, бесплатное пиво.
Uses crt;var a:array[1..100] of integer;
b,k,l,i,n:integer;
begin
writeln('Skolko chesel vy bydete vvodit?');
read(n);
for i:=1 to n do begin
write('Vvedite ',i,' chislo: ');
read(a[i]);
end;
for i:=1 to n do begin
b:=a[i] div 100;
k:=a[i] div 10 mod 10;
l:=a[i] mod 10;
if (b mod 2 = 0) and (k mod 2 = 0 ) and (l mod 2 = 0) then writeln(a[i]);
end;
<span>end.</span>