<u>Pascal:</u>
program loop;
var a,s:real;
begin
While s < 100 do
begin
readln(a);
s:= s+a;
end;
end.
<u>-----------------------------</u>
<u>Python:</u>
s = 0
while s < 100:
s += float(input())
<u>-----------------------------</u>
<u>Блок-схема:</u>
<u>"Приложил скриншот" см. ниже:</u>
Const nx=30;mx=30;
var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;
begin
write('Введите n');Readln(n);
write('Введите m');Readln(m);
for i:=1 to n do begin
for j:=1 to m do вegin
A[i,j]:=random(100)-20;
write(A[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (A[i,j] mod 3 =0) then begin
B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;
for i:=1 to n do begin
if (B[i]=0) and (D[i]= 0) then B[i]:= -10;
write(B[i]:4);end;<span>end.</span>
Потому что каждую минуту, каждый час, день, месяц и год люди узнают и придумывают что-то новое...дальше эта информация передаётся другим людям через устную и письменную речи. Более сообразительные люди начинают воплощать это в мечту или ставят какие то опыты.
Вывод: люди-очень умные существа и любая информация в их голове долго не задерживается :)
Как то так, надеюсь, что я чем то помогла! ;)
Пишите, пожалуйста, язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
begin
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
for i:=1 to 10 do
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
begin
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
end;
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.
Правильный ответ: 4,5 Мбайта
Объяснение:
4718592 байт / 1024 = 4608 Кбайта
4608 Кбайт / 1024 = 4,5 Мбайта