Дана последовательность целых чисел. получить по невозрастанию последовательность, состоящую из членов данной последовательности, заключённых между первым и последним отрицательными членами данной последовательности. написать программу на паскале
1 - в) caa 2 - в) в столбик 3 - в) char 4 - в) пояснительный текст не нужен 5 - в) символ заключается в апострофы
1) Var s1: string; i,a:integer; Begin Writeln ('введите текст'); Readln (s1); for i:=1 to length(s1) do if (s1[i]='а')or(s1[i]='a') then a:=a+1; writeln('количество букв а в тексте: ',a); End.
2) Var s1,s2: string; Begin Writeln ('введите первую строку'); Readln (s1); Writeln ('введите вторую строку'); Readln (s2); if length(s1)=length(s2) then writeln('длины строк совпадают') else writeln('длины строк не совпадают') End.
var mn: array[1..nm] of string; mk, ms: array[1..nm] of real; i, k, n: integer; min: real;
begin Write('Введите число продуктов на складе (не более ', nm, '): '); Readln(n); min := 1e10; for i := 1 to n do begin Write('Наименование продукта ', i, ': '); Readln(mn[i]); Write('Количество и стоимость: '); Readln(mk[i], ms[i]); if min > mk[i] then begin min := mk[i]; k := i end end; Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k], ' кг. стоимостью ', ms[k], ' руб. за 1 кг.') end.
