<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
<u>Пример</u>
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
1)
Program n1;
var a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if a[i]<0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
2)
Program n2;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('номера дел на 5: ');
for i:=1 to 10 do if a[i] mod 5=0 then write(i,' ');
end.
Y=73div8+4=9+4=13
y=13mod5+73=3+73=76
y=76+73*2=146+76=222
Ответ:222
#include <iostream>
#include <fstream>
int main()
{
setlocale(LC_ALL, "RUSSIAN");
std::ofstream file("file.txt");
int cr=0;
int max = 0;
int count = 0;
do
{
std::cout << "Введите число >> ";
std::cin >> cr;
if (cr > max)
max = cr;
if(cr!=421)
file << cr << std::endl;
count++;
} while (cr != 421);
file << "Количество введенных чисел: " << count << std::endl;
file << "Максимальное введенное число: " << max << std::endl;
}