В одномерном массиве А(10) найти максимальный элемент

Знания

Информатика

1 ответ:

Тамара Антюшко4 года назад

0 0

Var i,max:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do readln(a[i]);max:=a[1];for i:=1 to 10 doif a[i]>max then max:=a[i];writeln(max);end.

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

Заполнить массив (А) случайными целыми числами разных знаков. Составить программу вывода на экран номеров элементов массива, рав

AliansBasilYT

Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.

Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8

0 0

3 года назад

Помогите по информатике плиз тут из цыфр должно быть слово!!!!!!!!!!!! 100101011001001010101010100010111011101010101001100101010

ОльгаD3 [7]

Напиши по подробнее (

0 0

1 год назад

Паскаль. проверить равно ли целое трехзначное число а сумме кубов своих цифр

Mihail Almazov

program programone;

var

a,ed,des,sot:Integer;

begin

ReadLn(a);

sot:=a div 100;

des:=(a mod 100) div 10;

ed:=a mod 10;

if ed*ed*ed+des*des*des+sot*sot*sot=a then

WriteLn('Число равно сумме кубов своих цифр')

else

WriteLn('Число не равно сумме кубов своих цифр');

end

0 0

4 года назад

Написать код программы на языке паскаль Для вычисления значений функции типа y=SQR(l/x) напишите подпрограмму обработки ошибок.

Танюрочка

Var y,x,l:real;
begin 
writeln('Введите значение l и x соотвественно'); 
read(l,x); 
if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль') 
else begin 
y:=sqr(l/x); 
writeln(y); 
end; 
end.

0 0

1 год назад

Помогите составить программу.определить является ли введенное вами целое число четным,для четного извлечь квадратный корень ,для

krila [28]

Program z13;
var a:integer;
begin
writeln('vvedite dannoe cislo=');
readln(a);
if a mod 2=0 then writeln(sqrt(a))
else writeln(sqr(a)*a);
readln;
end.

0 0

4 года назад

В од­но­мер­ном массиве А(10) найти мак­си­маль­ный элемент

В одномерном массиве А(10) найти максимальный элемент