Написать 2 программы для Паскаля:1)Поменяйте местами первую и последнюю строки прямоугольной таблицы.2)Найдите произведения элементов строк
5-9 класс
|
прямоугольной таблицы.
1)
var
a:array [1..5,1..10] of integer;
i,j,p:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50)+1;
write(a[i,j]:3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j:=1 to 10 do
begin
p:=a[1,j];
a[1,j]:=a[5,j];
a[5,j]:=p;
end;
for i:=1 to 5 do
begin
for j:=1 to 10 do
write(a[i,j]:3);
writeln;
end;
end.
2)
var
a: array [1..5, 1..10] of integer;
i, j: integer;
p: real;
begin
for i := 1 to 5 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(50) + 1;
write(a[i, j]:3);
end;
writeln;
end;
writeln('произведения элементов строк');
for i := 1 to 5 do
begin
p := 1;
for j := 1 to 10 do
p := p * a[i, j];
writeln(p:25:0);
end;
end.
Другие вопросы из категории
двоичной цепочкой одной и той же минимально
Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число — размер файла в Кбайт. Единицы измерения писать не нужно.ЗАРАНЕЕ СПАСИБО!
представление числа -115 в однобайтовой ячейке. Выполнить сложение в двоичной системе счисления: 110101+10101, 11010+11001 Выполнить умножение в двоичной системе счисления: 110101+10101, 11010+11001
Читайте также
поменять местами первую и последнюю цифры, выдать на печать число, выбранное ПК и новое, полученное после перестановки цифр. В противном случае, вывести выбранное ПК число
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;
Дам за него 15 баллов. Пожалуйста, помогите!
2. Опишите массив для хранения зарплаты за каждый месяц. Зарплату считать целым числом.
3.Опишите: a)Переменную В для массива, состоящую из 8 символов. b)Переменную MAS для массива, состоящего из 100 вещественных чисел. c)Переменную DAY для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5
.4. Пусть А : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям: a. Третий элемент массива сделать равным 5. b. Вывести на экран 7-й элемент массива. c. Ввести значение 1-го элемента массива. d. Вычислить сумму 1,2 и 3-го элементов массива.
5. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вычислить сумму всех элементов массива (используйте цикл).
6. Пусть C : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вывести на экран все элементы массива.
7. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Поменять местами первый и последний элементы массива.
8. Пусть В : array [1..20] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Заполнить массив случайными числами из интервала [-24;37].