Первый действующий автоматический компьютер был сделан в 1944 году в Гарвардском университете профессором Говардом Эйкеном и группой инженеров из корпорации «Интернешнл Бизнес Машинз». Они назвали свое устройство «Гарвард Ай Би Эм—1». Это была первая машина, которая могла выполнять длинный список вычислительных операций. Она могла работать с 23-разрядными числами — сложить два таких числа за 0,3 секунды и умножить их за 4 секунды. В машине были использованы электрические и механические, а не электронные детали. Как только стали использоваться электронные детали, скорость работы компьютера резко возросла.
var
a:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
a[i] := random(36) - 15;
write(a[i], ' ');
end;
writeln;
end.
//вторая программа
const
n = 8;
var
a:array[1..n] of integer;
i, count3, count4, count5:integer;
begin
randomize;
writeln('Оценки учеников:');
for i := 1 to n do
begin
a[i] := random(3) + 3;
write(a[i], ' ');
if a[i] = 5 then
inc(count5);
if a[i] = 4 then
inc(count4);
if a[i] = 3 then
inc(count3);
end;
writeln;
writeln('Троек - ', count3);
writeln('Четверок - ', count4);
writeln('Пятерок - ', count5);
end.
//третья программа
var
k:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
k[i] := random(36) - 15;
write(k[i], ' ');
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 12 do
begin
k[i] := k[i] * (-1);
write(k[i], ' ');
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Поменять местами две диагонали Дан квадратный массив. Поменяйте местами в каждом столбце элементы, стоящие на главной и побочной диагонали. Входные данные: В первой строке дано число n≤10. Далее идут n строк по n неотрицательных целых чисел не больше 100. Выходные данные ответ на задачу. Примеры Ввод 3 1 2 3 4 5 6 7 8 9 Вывод 7 2 9 4 5 6 1 8 3
Если как в примере, вот код.
Если как обычно принято, надо заменить a[n - 1 - i, i] на a[i, n - 1 - i]
//PascalABC.NET
begin
var n := ReadInteger;
var a := ReadMatrInteger(n, n);
for var i := 0 to n - 1 do
Swap(a[i, i], a[n - 1 - i, i]);
a.Print
end.