М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
soymapoIina
soymapoIina
29.04.2021 11:48 •  Информатика

Паскаль найти максимальный элемент из 30 целых чисел которые вводятся постоянно

👇
Ответ:
Alina9392010
Alina9392010
29.04.2021

const n=30;

var max,i,x:integer;

begin

max:=-MaxInt;

for i:=1 to n do begin

  readln(x);

  if x>max then max:=x;

end;

writeln(max);

end.

4,7(97 оценок)
Ответ:
vanyabond2611
vanyabond2611
29.04.2021
Program Znanija;
var readd, i, maxx: Integer;
begin
read(readd);
maxx:=readd;
for i:=0 to 29 do
begin
read(readd);
if readd > maxx then
maxx :=readd;
end;
write('Max element is ', maxx);
end.
4,6(39 оценок)
Открыть все ответы
Ответ:
irushkanet
irushkanet
29.04.2021
//Первая
var a,b,c:integer;beginread(a,b,c);if a>0 then a:=a*a else a:=a*a*a*a;if b>0 then b:=b*b else b:=b*b*b*b;if c>0 then c:=c*c else c:=c*c*c*c;write(a,' ',b,' ',c);end.
//вторая
var a,b,c:integer;beginread(a);if(a<100)or(a>999)then write('Заданное число не трехзначное!');if (a>99) and (a<1000)thenbeginb:=a*a;while a<>0 dobeginc:=c + a mod 10;a:=a div 10;end;c:=c*c*c;if c=a then write('Квадрат равен кубу суммы цифр')else write('Квадрат НЕ равен кубу суммы цифр')end;end.
//Третья
var a:integer;beginread(a);if a=1 then write('Январь');if a=2 then write('Февраль');if a=3 then write('Март');if a=4 then write('Апрель');if a=5 then write('Май');if a=6 then write('Июнь');if a=7 then write('Июль');if a=8 then write('Август');if a=9 then write('Сентябрь');if a=10 then write('Октябрь');if a=11 then write('Ноябрь');if a=12 then write('Декабрь');end.
4,6(83 оценок)
Ответ:
cadatik04
cadatik04
29.04.2021

Windows іске қосу кезінде құлыптау терезесі пайда болады, онда "сіз Қылмыстық кодекстің осындай баптарын бұздыңыз және іс сотқа жіберіледі. Бұған жол бермеу үшін SMS жіберіңіз / шотты толтырыңыз және т.б.". Жақында Мен бұл вирус туралы айтқаным есіңізде ме? Сіз әлеуметтік медиа сайттарына немесе іздеу жүйелеріне кіре алмайсыз. Тағы да, ақша төлеуді сұрайтын терезе пайда болады. Мен бұл туралы тақырыптық мақалада егжей-тегжейлі жаздым. Жүйе сіздің командаларыңызға тез жауап бермейді, қолданбалар баяу ашылады, файлдарды көшіру / жылжыту процедурасы ұзақ уақытқа созылады. ОЖ жүктеу бұрынғыға қарағанда көп уақытты алады. Егер сіз іске қосуға болатын үшінші тарап қосымшаларын орнатпаған болсаңыз, бұл белгі өзекті екенін ескерген жөн. Компьютерді іске қосу кезінде браузер өздігінен ашылады, оның бастапқы беті өзгереді, желілік трафик үнемі жұмсалады (бірақ сіз ештеңе жасамайсыз). Сіздің атыңыздан спам (e-mail және әлеуметтік желі аккаунттары арқылы) жіберіле бастайды. Файлдарды ашқан кезде тінтуірді екі рет басу жұмысын тоқтатады (егер манипулятор жұмыс істесе). Құжаттар, орнатылған қосымшалар және басқа файлдар із-түссіз жоғала бастайды. Бағдарламалық жасақтама бұрын болмаған қателермен басталмайды немесе орындалмайды.

4,7(46 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ