Задать вопрос!

Задать вопрос!

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

4 года назад

5

Найти номер наибольшего элемента массива.Паскаль

Информатика

1 ответ:

ЕленаАл4 года назад

0 0

Вот задача. Выводит номер элемента массива и само значение.

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

Ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)

гнУм [45]

Cost=10;
var a:array[1..N] of integer;
i, s: integer;
for I:=1 to N do
readln (a[i]);
s:=0;
if a[i] mob 2 <> 0 then
s:=s+1;
writeln ('s=' , s);
end.

0 0

4 года назад

Составить программу нахождения значения выражения: к=2х 3 -5х 2+х-6, если значение х вводится с клавиатуры.

НАТАЛИЯ ШИШОВА [6]

Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>

0 0

4 года назад

Пожалуйсиааа помогитееее????

elena-Iv [14]

Книга, т. к. это носитель информации

0 0

4 года назад

Помогите решить задачу пожалуйста это срочно

Palmary

Дан АВСД-прямоуг. АВ=А; ВС=А-В
1)ВС=20-5=15
S=AB*BC=20*15=300
P=2AB+2BC=2*20+2*15=40+30=70

2) BC=12-3=9
S=12*9=108
P=2*12+2*9=24+18=42

0 0

4 года назад

Написать программу, которая считает и выводит на экран сумму всех целых чисел из промежутка [A, B]. Числа A и B задает пользоват

Анатолий - К [91]

program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.

0 0

4 года назад