помогите плиз сделать 2,3,4)))
10-11 класс
|
2.program jkfg;
var a: array [1..10] of integer;
i, b: integer;
begin
for i: 1 to 10 do a[i]:= random (11);
for i:= 1 to 10 do write (a[i]:4);
writeln;
A[1]; for i:= 1 to 10 do B: A[1]:= A[10]; A[10]:= B;
for i:= 1 to 10 do write (a[i]:4)
end.
3. program udf;
var a: array [1..10] of integer;
max, man, i, v, k: integer;
begin
for i:= 1 to 10 do a[i]:= random (101) ;
max:= A[1]; k:=1;
mai:= A[1]; v:= 1 ;
for i:= 2 to 10 do
if A[i]> max then
begin
max:= A[i]; k:= i;
end;
for i:= 1 to 10 do
if A[i]< min then
begin
min:= A[i]: v:= 1;
end;
writeln('максимальный элемент A[, k, ']=, max);
writeln ('A [', v, ']=, max;
for i:= 1 to 10 do write (A[i]:4);
end.
Другие вопросы из категории
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!
а) трижды три равно четырем.
б) ты уже пришел?
в) калькулятор предназначен для вычислений.
г) привет!
Читайте также
второй, а tg на третьей строчки
program h;
var f:text;
x,y,z:real;
begin
assign (f,'c:\ty.txt');
reset (f);
rewrite(f);
x:=0;
while x<=3 do
begin
x:=x+0.1;
y:=sin(x);
z:=sin(x)/cos(x);
write(f,' x= ',x:4:2,' ');
write(f,'sin ',y:7:5, ' ');
write(f,'tg ',z:5:3,' ');
end;
close(f);
end.
1.Сколько раз будет выполнена команда повторения в приведенных фрагментах при n=7:
1) for i :=n downto 4 do;
2)S:=S * i.
2. Определите, какой будет результат приведенного фрагмента: a:=100, n:=4:
for i:=1 to n do
a:=a - 2 * i.
Очень важно помогите.
Привет. Помогите плиз=)
№1)Составить алгоритм вывода среднего(не арифметического) из трёх чисел в виде блок-схемы.
Входные данные:три числа
Выходные данные:среднее число
№2) На вход подаётся число. Нужно вывести числа от данного до 10. Если оно изначально больше 10, завершить программу.