Напишите программу на языке паскаль для решения следующей : дан массив вещественных чисел из 10 элементов. поменять в нем первый элемент массива с последним. пример: входные данные: 2,3,-4,5,-6,2,-5,7,-9,-3 выходные данные: -3,3,-4,5,-6,2,-5,7,-9,2
// PascalABC.NET 3.0, сборка 1088 begin var n:=ReadLnString('Введите число: '); n:=n.Where(x->x in ['0'..'9']).JoinIntoString(''); Writeln('Принятое число: ',n); var a:=ReadLnChar('Введите искомую цифру: '); Writeln('Количество цифр в числе равно ',n.Length); if n[1]=n[n.Length] then Writeln('Первая цифра равна последней') else Writeln('Первая цифра не равна последней'); if Pos(a,n)>0 then Writeln('Цифра ',a,' входит в число') else Writeln('Цифра ',a,' не входит в число') end.
Тестовое решение: Введите число: тут спрятано 456. по частям 764 наше 03число Принятое число: 45676403 Введите искомую цифру: 0 Количество цифр в числе равно 8 Первая цифра не равна последней Цифра 0 входит в число
"Школьный вариант" // PascalABC.NET 3.0, сборка 1088 var n:longint; i,k:integer; sn:string; a:char; begin Write('Введите число: '); Readln(n); Str(n,sn); Write('Введите искомую цифру: '); Readln(a); k:=Length(sn); Writeln('Количество цифр в числе равно ',k); if sn[1]=sn[k] then Writeln('Первая цифра равна последней') else Writeln('Первая цифра не равна последней'); if Pos(a,sn)>0 then Writeln('Цифра ',a,' входит в число') else Writeln('Цифра ',a,' не входит в число') end.
Тестовое решение: Введите число: 3476573 Введите искомую цифру: 7 Количество цифр в числе равно 7 Первая цифра равна последней Цифра 7 входит в число
Program day; var a: array[1..30] of integer; b, s, i, min: integer; begin min := 999; Randomize; for i := 1 to 30 do begin a[i] := random(9, -3); s := s + a[i]; Write(a[i]:3); end; Writeln; Writeln('Ниже нуля '); for i := 1 to 30 do begin if a[i] > 0 then Write(i,'-го '); end; if a[i] = 0 then b := b + 1; Writeln; for i := 1 to 30 do if a[i] < min then min := a[i]; Writeln('Самая низкая температура - ', min); Writeln('Средняя температура ноября ', s / 30); end.
const n = 10;
var a:array [1..n] of real;
i:integer;
s: real;
begin
for i:=1 to n do
read(a[i]);
s:= a[1];
a[1]:=a[10];
a[10]:=s;
for i:=1 to n do
write(a[i]+',');
end.