Написать программу языком с++ 42
задано целочисленный массив (матрица) а размерности 5х5. массив а иницализуваты элементами в тексте программы при его описании (заполнить произвольно - 5 строк по 5 чисел). в массиве а найти указанные в варианте величины и вывести результат в виде сообщения на консоль, выведя предварительно массив в виде таблицы. образовать новый массив в, согласно указаниям соответствующего варианта, образованный массив вывести на консоль.
: в массиве а найти разницу средних значений отдельно взятых положительных и отрицательное элементов. массив в образовать из массива а, заменив в нем все элементы меньше -5 на противоположные.
за правильную все и выберу лучший ответ! заранее ! )
var A, B, i: integer;
begin
write('Введите A и B: '); readln(A, B);
for i := A to B do
if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.
//2
var
A, B, i, k: integer;
begin
write('Введите A и B: '); readln(A, B);
for i := A to B do
if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
begin
writeln(i);
k := k + 1;
end;
if k = 0 then writeln('Таких чисел нет.');
end.
//3
var sum, i, n: integer;
begin
write('Введите количество предметов: '); readln(n);
for i := 1 to n do
begin
readln(n);
sum := sum + n;
end;
writeln('Общая масса = ', sum);
end.
//3 с другим циклом
var sum, n: integer;
begin
writeln('Введите 0 для завершения ввода.');
repeat
readln(n);
sum := sum + n;
until n = 0;
writeln('Общая масса = ', sum);
end.