Помогите,пожалуйста,написать программу в Паскале... Дан массив. Уменьшить все его элементы на число a.
10-11 класс
|
Program pr;
uses crt;
Var M:array[1..10, 1..15] of integer;
i,j:integer;
a:integer;
Begin
Writeln('vvedite a');
readln(a);
Writeln('vvedite massiv');
for i:=1 to 10 do Begin
for j:=1 to 15 do read(M[i,j]);
Writeln;
end;
for i:=1 to 10 do
for j:=1 to 15 do M[i,j]:=M[i,j]-a;
for i:=1 to 10 do Begin
for j:=1 to 15 do Write(M[i,j]:5);
Writeln;
end;
readln;
end.
Другие вопросы из категории
Она в 101 класс ходила,
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
Паша (p) купил 10 яблок, а Коля k яблок.
Известно, что Коля купил больше яблок, чем Паша.
На сколько (x) яблок Коля купил больше, чем Паша?
Исходные данные: k
Результат: x
Пример 1: для исходных данных: 15 должен быть результат: 5
Пример 2: для исходных данных:10 должен быть результат: 0
Читайте также
параллельной побочной
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную