Var i: integer; // рабочая переменная для for k: integer; // количество минимальных элементов n: integer; // размер массива m : array [1..10] of integer; // собственно сам массив из "n" элементов i_min : integer; // индекс минимального элемента в массиве begin n: =10; k : = 0; i_min : = 1; for i : = 1 to n do begin m[i] : = random(10); // 10 - число от if (m[i]< m[i_min]) then begin k : = 1; i_min : = i end else if (m[i]=m[i_min]) then inc(k); end; // в переменной "k" - находится количество минимальных элементов end;
Спасибо
Ответ дал: Гость
2)program nah;
var s: string;
begin
s: = 'рэки,горы и '; (присвоение значения)
writeln (s); (вывод)
delete (s, 5,6); (удаление из строки s начиная с 5-го символа 6) символа)
writeln(s); (вывод результата)
end.
решение будет выглядеть так
рэки, горы и
рэки и
прости что не решила
Ответ дал: Гость
type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;
new_el^.next: =nil; if start=nil thenstart: =new_el; else begin
last: =start;
while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');
del2(start);
new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Вмассиве a(n) подсчитать количество минимальных элементов. в турбо паскале решите...
Популярные вопросы