Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.

0 0

3 года назад

В одной из кодировок Unicode каждый символ кодируется 16 битами.Определите размер следующего предложения в данной кодировке:Слух

Мария1011

В предложении 42 символа.

0 0

4 года назад

В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной диагонали. Вывести на экран его индекс

Vitlali [14]

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var n:=5;
var z:=MatrixRandom(n,n,10,99);
for var i:=0 to n-1 do begin
 for var j:=0 to n-1 do Print(z[i,j]);
 Writeln
 end;
var imin:=0;
var jmin:=n-1;
for var i:=1 to n-1 do
 if z[i,n-i-1]<z[imin,jmin] then begin
 imin:=i; jmin:=n-i-1
 end;
Writeln('Zmin=Z[',imin+1,',',jmin+1,']=',z[imin,jmin])
end.

Тестовое решение:
26 62 62 90 76
21 67 69 43 37
18 19 35 88 91
60 91 87 46 27
49 71 16 77 81
Zmin=Z[3,3]=35

Замечание:
В массиве элементы нумеруются от 0 до 4, а при выводе номера индексов указаны для нумерации от 1 до 5 (так привычнее смотрится).

0 0

3 года назад

Прочитать ещё 2 ответа