Чем компьютер вреден
вреден он тем что многие сейчас 1\3 своей жизни люди проводят за компьютером,телефоном,ноутбуков,етим они гробят себе зрение и осанку лучше выйти на улицуи погулять гуляйте почаще
а хорошие качества есть мы можем найти полезную информацыю .
раньше люди жили без компьютеров и обходились без него но сейчас 21 век и все привыкли сидеть за компомно хотябы 1 в день проыетривайтесь на улице и делайте зарядку глаз
Program _massiv;
var A:array[1..50] of real;
i,c:integer;
begin
writeln('Задайте количество членов линейного массива');
readln(c);
for i:=1 to c do begin
writeln('Введите',' ',i,' элемент массива');
readln(A[i]);
end;
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]);
for i:=1 to c do
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5 ',i)
end.<span> </span>
Var
a,b,c,max,mid,min,t:integer;
begin
Writeln('Введите через пробел три целых двухзначных числа');
Readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if max<c then begin mid:=max; max:=c end
else mid:=c;
if min>mid then begin t:=mid; mid:=min; min:=t end;
if (max-min)>mid then Writeln('YES')
else Writeln('NO')
end.
Тестовое решение:
Введите через пробел три целых двухзначных числа
37 93 74
NO
Пожалуйста поставь 5 звёзд и лайк, я очень старался
Актуальность разработки данной проблемы обусловлена тем, что государственная информационная политика (ГИП), ее формирование и реализация на современном этапе доктринально и насущно выдвигаются на передний план политики российского государства.
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
