Написать программу, которая запрашивает: «введите скорость ветра (в м/сек)». при скорости ветра, большей или равной 20 м/сек, программа сообщает: «ветер слабый».
Напишу на алгоритмическом языке: нач вещ а вывод "Введите скорость ветра (в м/сек)" ввод а если а>=20 то вывод "Ветер сильный" иначе вывод "Ветер слабый" все кон
Если, что то не нравится можешь подредактировать под себя
1. Program A1; const n=20; var i,a:integer; O:array[1..n] of integer; begin a:=0; for i:=1 to n do begin readln(o[i]); if o[i]<0 then a:=a+o[i]; end; writeln(a); end.
2. Program A1; const n=20; var i,a:integer; O:array[1..n] of integer; begin a:=0; for i:=1 to n do readln(o[i]); a:=o[n]; for i:=n-1 downto 1 do o[i+1]:=o[i]; o[1]:=a; for i:=1 to n do write(' ',o[i],' '); end.
3. Program A1; const n=20; var i,a:integer; O:array[1..n] of integer; P:array[1..n] of integer; M:array[1..n] of integer; begin for i:=1 to n do begin readln(o[i]); if o[i]>0 then p[i]:=o[i]; if o[i]<0 then m[i]:=o[i]; end; for i:=1 to n do write(' ',o[i],' '); writeln; for i:=1 to n do if p[i]<>0 then write(' ',p[i],' '); writeln; for i:=1 to n do if m[i]<>0 then write(' ',m[i],' '); writeln; end.
var a: array[1..n] of integer; b: array[1..(n div 3)+1] of integer; i, m: integer;
begin Randomize; Writeln('Элементы массива'); m := 0; for i := 1 to n do begin a[i]:= Random(155)-55; Write(a[i]:4); if (a[i]>51) and (i mod 3=0) then begin m:=m+1; b[m]:=a[i] end end; Writeln; if m>0 then begin Writeln('Элементы сформированного массива'); for i := 1 to m do Write(b[i]:3); Writeln end else Writeln('Нет элементов с индексом, кратным 3, больших 51') end.
нач
вещ а
вывод "Введите скорость ветра (в м/сек)"
ввод а
если а>=20
то вывод "Ветер сильный"
иначе вывод "Ветер слабый"
все
кон
Если, что то не нравится можешь подредактировать под себя