Все категории

3 года назад

Нужно найти минимальное число из массива и вывести его на экран. Массив A: array [1..5] of integer;

Знания

Информатика

1 ответ:

Aliost [11]3 года назад

0 0

Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;

begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
end.

Читайте также

Написать программу на языке Паскаля АВС ***Дана матрица. Сформировать одномерный массив, элементами которого являются суммы тех

Мадина Адамова

program raf105;

const

n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять

var

a:array[1..n,1..n] of integer;

asum:array[1..n] of integer;

i,j,k,sum,kolsum: integer;

x: boolean;

begin

write('Введите число k (не больше ',n,'): ');

readln(k);

for i:=1 to n do

begin

writeln;

writeln('Введите ',n,' чис. ',i,' стр.');

for j:=1 to n do

readln(a[i,j]);

end;

writeln;

writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');

for i:=1 to n do

begin

x:= true;

sum:= 0;

for j:=1 to k do

begin

if x and (a[i,j] <= 0)

then x:= false;

end;

if x

then

begin

for j:=1 to n do

sum+= a[i,j];

kolsum+= 1;

asum[kolsum]:= sum;

writeln(asum[kolsum]);

end;

end.

0 0

4 года назад

Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое каждого из столбцов имеющих четные

personal1985

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
 for var j:=0 to m-1 do
 a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
 Write(a.Col(col).Average:0:2,' ');
 col+=2
 end;
Writeln
end.

Пример
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85

0 0

3 года назад

ПОМОГИТЕ ОТВЕТИТЬ ПрАвИлЬнО НА ТЕСТ ПО ИНФОРМАТИКЕ

alexandru0025 [7]

1-Б

2-В

3-А

4-Г

2. А) и В)

0 0

1 год назад

Pascal Вывести на экран последовательность чисел и вычислить сумму ряда: 1/2, ¼, 1/6, 1/8, 1/10, …

Мензат [4]

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
SeqGen(ReadInteger('n='),i->1/(2*i),1).Println.Sum.Println
end.

Пример
n= 6
0.5 0.25 0.166666666666667 0.125 0.1 0.0833333333333333
1.225

0 0

1 год назад

Найти значение выражения. Паскаль. а) c=(a+b)² *2a²bб) z=|x-y²|+x*√yПомогите пожалуйста. срочно

Helen0616

Ответ:

<h3>а) программа написана на делфи </h3>

на форме создаем Edit1(куда вводится значение а), Edit2(куда вводится значение b) Label1(выводится результат) и кнопку(Button1).

var a,b,c:Real;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=power(a+b,2)*2*(power(a,2))*b;

Label1.Caption:=IntToStr(C);

end;

end.

б)на форме создаем как и в первом!!

var x,y,z:Real;

begin

x:=StrToInt(Edit1.Text);

y:=StrToInt(Edit2.Text);

z:=Abs(sqr(x-2))+x*sqrt(y);

Label1.Caption:=IntToStr(Z);

end;

end.

НЕ ЗАБУДЬТЕ ДОБАВИТЬ МОДУЛЬ math , иначе будет выдавать ошибку...

0 0

3 года назад