Дан массив х(n, n). найти количество положительных элементов матрицы, лежащих на главной диагонали (элементы главной диагонали с индексами (1,1), (2,2) и т.д.) паскаль
Procedure TForm1.Button1Click(Sender: TObject); var i, k : integer; x : array [1..10,1..10] of Integer; begin k := 0; for i:=1 to 10 do begin x[i,i] := Random(100)-50; if (x[i,i]>0) then inc(k); end; Label1.Caption := 'Количество положительных элементов = ' + inttostr(k); end;
В цифровых вычислительных машинах наименьшим информационной величиной является бит, который вследствие применения двоичной системы счисления объединяется в байт (8 бит), в килобайт, мегабайт и т.д по принципу кратности степени числа с основанием 2. до широкого распространения цифровых ЭВМ существовали еще и аналоговые вычислительные машины, в которой каждому мгновенному значению переменной величины, участвующей в исходных соотношениях, ставится в соответствие мгновенное значение другой (машинной) величины, часто отличающейся от исходной физической природой и масштабным коэффициентом, понятия бита в тот момент не использовалось.
1. Program tt; var A,B,C,D: Real; begin Writeln ('Введите массу воды в граммах.'); Readln(A); Writeln ('Введите массу соли в граммах.'); Readln(B); D := B+A; C := B/A; Writeln ('Массовая доля соли в раствворе - ',C,'.'); End. 2. Program tt; var A,B,PL,Per: Real; begin Writeln ('Введите длинну первого катета.'); Readln(A); Writeln ('Введите длинну второго катета.'); Readln(B); PL := (B*A)/2; PER := sqrt(B*B+A*A)+A+B; Writeln ('Площадь - ',PL,'.'); Writeln ('Периметр - ',PER,'.'); End.
var
i, k : integer;
x : array [1..10,1..10] of Integer;
begin
k := 0;
for i:=1 to 10 do
begin
x[i,i] := Random(100)-50;
if (x[i,i]>0) then
inc(k);
end;
Label1.Caption := 'Количество положительных элементов = ' + inttostr(k);
end;