решите в Visual Studio Решите используя операторы цикла while, do while, for 10. сумму его цифр, больших a (значение a вводится с клавиатуры; 0 ≤ a ≤ 8
//"Школьный" вариант //Pascal ABC.NET 3.1 сборка 1256
Const n=10;
Var ar:array[1..n] of integer; i,max,min:integer; b:boolean; begin randomize; b:=false; max:=integer.MinValue; min:=integer.MaxValue; writeln('Array:'); for i:=1 to n do begin ar[i]:=random(-100,100); if (ar[i]>max) and not(odd(ar[i])) and (ar[i]>0) then begin max:=ar[i]; b:=true; end; if (ar[i]<min) and not(odd(ar[i])) and (ar[i]>0) then begin min:=ar[i]; b:=true; end; write(ar[i]:4); end; writeln; if b=false then writeln('Нет удовлетворяющих условиям чисел') else begin writeln('Max=',max); writeln('Min=',min); end; end.
Пример работы программы: Array: 98 60 -41 -88 63 -81 -77 -96 -18 51 Max=98 Min=60
1) Блокнот: Простой текстовый редактор Windows. Просто для текста. Удобен как очень быстрое место для записи заметок
WordPad: Редактирование и создание документов, таких как DOCX, ODT-и так далее.
2) Блокнот: С Блокнота можно открывать файлы с расширениями LOG, INF, INI, а так же сохранять их в разных кодировках (Юникод, UTF-8, ANSI)
WordPad: Так же может открыть TXT, ODT, DOCX и готов их сохранить.
3) Блокнот: Настраивается, по умолчанию переноса нет.
WordPad: Так же настраивается, можно установить переключатель Перенос по словам (Word Wrap).
4) Доступна и в блокноте и в WordPad.
5) Доступна у блокнота и WordPad, горячая клавиша - CTRL + Z
6) У двух редакторов одни и те же горячие клавиши - CTRL + X, CTRL + C, CTRL + V, DEL
7) Блокнот не поддерживает, если только системно его не изменить. WordPad может форматировать текст, изменять шрифт.
8) Блокнот не поддерживает, WordPad поддерживает данный функционал.
9) Насчёт блокнота точно не скажу, но WordPad есть данный функционал.
10) Блокнот поддерживает, так же как и WordPad.
11) И то и другое - предоставляет данный функционал.
12) Точно не знаю, но в блокноте вроде бы такого нет, так же как и у WordPad. Но я не уверен.
13) И то и другое - можно распечатать.
14) Блокнот не поддерживает объекты, а WordPad - есть такой функционал.
15) Не совсем понял вопрос.
Объяснение:
Надеюсь, я правильно понял задачу.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,max,min:integer;
b:boolean;
begin
randomize;
b:=false;
max:=integer.MinValue;
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-100,100);
if (ar[i]>max) and not(odd(ar[i])) and (ar[i]>0) then
begin
max:=ar[i];
b:=true;
end;
if (ar[i]<min) and not(odd(ar[i])) and (ar[i]>0) then
begin
min:=ar[i];
b:=true;
end;
write(ar[i]:4);
end;
writeln;
if b=false then writeln('Нет удовлетворяющих условиям чисел') else
begin
writeln('Max=',max);
writeln('Min=',min);
end;
end.
Пример работы программы:
Array:
98 60 -41 -88 63 -81 -77 -96 -18 51
Max=98
Min=60