Var max,min,i:integer; a:array [1..20] of integer; b:boolean;
begin
for i:=1 to 20 do
begin
b:=random(1);
if b then do a[i]:=-1*random(50) else a[i]:=random(50);
end;
max:=a[1];
min:=a[1];
for i:=2 to 20 do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];end;
for i:=1 to 20 do begin
if max=a[i] then writeln('Индекс максимального'i);
if min=a[i] then writeln('Индекс минимального'i);
end;
writeln('Максимальное'max);
writeln('Минимальное'min);
End.
#include <iostream>
using namespace std;
int main()
{
int a = 0;
cin >> a;
a += 100;
cout << a << endl;
}
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
//1
var
A: array [1..10] of integer;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(81)-40;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if i mod 2 = 0 then A[i] := sqr(A[i])
else A[i] := sqr(i);
write(A[i], ' ');
end;
end.
//2
var
A: array [1..10] of real;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(41)-20;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := sqr(A[i]);
if A[i] > 0 then A[i] := sqrt(A[i]);
write(A[i]:0:2, ' ');
end;
end.
//3
var
A: array [1..200] of real;
i, N: byte;
sum: real;
begin
write('Введите N = ');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('З/П за ', i ,' месяц = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Общий доход = ', sum:0:2);
end.
var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 =0 then writeln ('Число чётное') else writeln ('Число нечётное');
if ((a div 100) mod 2=0) then writeln ('2-я цифра чётная') else writeln ('2-я цифра нечётная');
end.
