//прога на Pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('Введите кол-во учеников: '); readln (n); setLength (mas, n); for i:=0 to n-1 do begin write ('Введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('Введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n) end.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var L:=new List<integer>; Writeln('Вводите целые числа, окончание ввода по -777'); var n:integer; repeat n:=ReadInteger; if n<>-777 then L.Add(n); until n=-777; Writeln('Исходный список'); Writeln(L); n:=ReadInteger('Введите искомое число:'); var p:=L.FindIndex(k->k=n); // искомый элемент if p<0 then Writeln('Искомый элемент в списке не найден') else begin Writeln('Элемент ',L.Item[p-2],' удален'); L.RemoveAt(p-2); Writeln(L); // удалили и убедились n:=ReadInteger('Введите число для вставки:'); L.Insert(p-1,n); Writeln(L) end end.
Пример Вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 Исходный список [1,6,12,73,-15,34,18,0,24] Введите искомое число: 34 Элемент 73 удален [1,6,12,-15,34,18,0,24] Введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку