эллементы массива вычисляются по формуле A(X,Y)=2X^2-Y^2 написать программу, которая выводит на экран значения элементов массива А(2,2).
10-11 класс
|
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
Проверено - работает на Паскаль АВС.
Кстати, похоже на какую-то ошибку в условии задачи: по формуле A(X,Y)=2X^2-Y^2 ни один элемент массива никогда не будет равен 0.
Program Lobu;
uses crt;
const n=2;
var
a:array[1..n,1..n] of real;
neg,sum: real;
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
neg:=0;
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=2*i*i-j*j;
write (a[i,j]:7:2);
if a[i,j]<0 then neg:=neg+1;
if a[i,j]>0 then sum:=sum+a[i,j];
if a[i,j]=0 then writeln('Элемент А(',i,',',j,') равен 0');
end;
writeln();
end;
writeln();
writeln('Количество отрицательных чисел ',neg);
writeln('Сумма положительных чисел ',sum);
end.
Другие вопросы из категории
дюйма понадобится для записи этой книги?
числа: день (0<d<32), месяц (0<m<13) и
год (0<g<3000). Вывести на экран дату следующего дня
x- действительное число
R=(x-2)(x-4)(x-8)....(x-64) / (x-1)(x-3)(x-7)...(x-63)
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
тся с
клавиатуры. Величина задолженности вычисляется по формуле : Ai=(1+q)*A(i-1). q - ставка кредита , Ai - задолженность i-го месяца (A0 - величина кредита ).
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел