Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>

0 0

4 года назад

Составить программу, которая создает массив из 6 случайных чисел, принадлежащих [20;120] и вычисляет сумму элементов этого масси

Шерлок221 [11]

Program gt;
var a:array[1..6]of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 6 do
begin
a[i]:=random(101)+20;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
writeln(s);
end.

0 0

4 года назад

(A<=B) and (A=B-1) при A=2, B=4

Чопорова

Ответ False
Логический оператор and обозначает то,что все условия должны быть выполнены
А меньше 4 ,но А не равен 4-1
Условие не выполняется

0 0

4 года назад

Составьте программу вычисления площади и периметра квадрата со стороной а. Результаты округлить

Марго1962 [21]

Readln(a);
writeln(round(a * 4),' ',round(sqr(a)));

0 0

4 года назад