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

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

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

3 года назад

7

Помогите срочно!!! Два в один вопрос никак.

Помогите срочно!!! Два в один вопрос никак.

Информатика

1 ответ:

Trewas3 года назад

0 0

Ответ:

Объяснение:

Держи

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

Напишите программу на Pascal. У авиакомпании "Взлет" за последний год слишком много происшествий и она решила создать статистику

inna777

Я могу на С++ написать, если надо

0 0

4 года назад

Прочитать ещё 2 ответа

Решите пожалуйста первую задачу, срочно

san321 [7]

Программа в файле
Program rtr1;Uses crt;Var a:array [1..100] of real; mx, max,min:real; max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do begin if a[i]>=max then max:=a[i]; if a[i]<=min then begin min:=a[i]; min1:=i; end; end; i:=1; while a[i]<>max do begin i:=i+1; end; max1:=i; mx:=a[max1]; a[max1]:=a[min1]; a[min1]:=mx; for i:=1 to n do write('a[',i,']=',a[i],';'); End.

0 0

3 года назад

Дано трехзначное число. Вывести «Yes», если его цифры образуют возрастающую или убывающую последовательность. В противном случае

Елена Красюкова [47]

Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.

Удачи =)</span>

0 0

4 года назад

С клавиатуры заполняется массив 10 на 10 поменять 1 и 10 строчку местами( в по скале с пояснениями, действительно до 15 05)

Касатка 4444 [1]

Const N = 10; M = 10;

var arr: array[1..N,1..M] of byte;
i,j,a,b,buff: byte;

begin
for i:=1 to N do begin
for j:=1 to M do begin
read(arr[i,j]);
end;
end;

for j:=1 to M do begin
buff := arr[1,j];
arr[1,j] := arr[10,j];
arr[10,j] := buff;
end;

writeln('==============');

for i:=1 to N do begin
for j:=1 to M do
write(arr[i,j]:3);
writeln;
end;
end.

0 0

4 года назад

2 КЛАСС информатикаРозгадай ребус и дизнайся про улюблену розваг у Смайлика БУКВА С

SergeyMMM

(признайся про Любу, Лену, майл , роза) ну и всё .

0 0

4 года назад