Исправить программы
1. в файле типа record хранится информация о наличии на складе запасных частей для ремонта бытовых приборов: наименование детали, количество единиц на складе, цена одной детали, суммарная стоимость деталей каждого наименования, среднемесячная норма потребления. составить программу для получения:
• сведений о имеющихся на складе деталях, цена которых больше заданных;
• информации о количестве наименований деталей, среднемесячная норма потребления которых наибольшая.
program pascalguru;
uses crt;

type m = record
name : string[20];
kolvo : integer;
cena : real;
ctoim : real;
norma : real;
end;

var massiv: array[1..50] of m;
i,n,code,count: integer;
cenaposle,max: real;
s: string;
f: text;
{}

begin
assign (f,'bd31.txt' ); reset (f);

i: =0;
while not eof(f) do begin
inc(i);
readln(f,s);
massiv[i].name: =copy(s,1,pos(' ',s)-1 ); delete(s,1,pos(' ',s) );
val(copy(s,1,pos(' ',s)-1 ),massiv[i].kolvo,code ); delete(s,1,pos(' ',s) );
val(copy(s,1,pos(' ',s)-1 ),massiv[i].cena,code ); delete(s,1,pos(' ',s) );
val(copy(s,1,pos(' ',s)-1 ),massiv[i].ctoim,code ); delete(s,1,pos(' ',s) );
val(s,massiv[i].norma,code);
end;
n: =i;
{}
writeln('1: '); writeln;
write('detali, tsena kotoryh bolishe: '); readln(cenaposle);
writeln;

for i: =1 to n do
if massiv[i].cena> cenaposle then
writeln(massiv[i].name: 12,massiv[i].kolvo: 5,massiv[i].cena: 8: 2,massiv[i].ctoim: 8: 2,massiv[i].norma: 8: 2);

{}
writeln; writeln('2: '); writeln;

max: =massiv[1].norma;
for i: =2 to n do
if massiv[i].norma> max then max: =massiv[i].norma;

count: =0;
for i: =1 to n do
if massiv[i].norma=max then
begin
writeln(massiv[i].name: 12,massiv[i].kolvo: 5,massiv[i].cena: 8: 2,massiv[i].ctoim: 8: 2,massiv[i].norma: 8: 2);
inc(count);
end;

writeln; writeln('kol-vo: ',count);

close(f);
readln;
end.

2 дан массив 8 х 8. записать в другой массив максимальные элементы каждой строки, которые стоят на главной диагонали.

program code; begin

program pascalguru;

var a: array[1..8,1..8] of integer;

b: array[1..8] of integer;

i,j,k: integer;

begin

for i: =1 to 8 do

for j: =1 to 8 do a[i,j]: =2+random(26); {begin

write ('a[',i,',',j,']='); readln (a[i,j]); end; }

write ('vot vvedennaya vami matrica a: ');

for i: =1 to 8 do begin writeln;

for j: =1 to 8 do write (a[i,j]: 8,' '); end;

k: =0;

for i: =1 to 8 do

for j: =1 to 8 do

if i=j then begin inc(k); b[k]: =a[i,j]; end;

writeln; writeln; writeln('otvet: ');

for i: =1 to 8 do write (b[i]: 8,' ');

readln;

end.

259

340

Посмотреть ответы 1

Ответы на вопрос:

anna1919191

Информатика

4,5(37 оценок)

Var a : array[1..9] of integer; // массив 9 элементов summa, i : integer; // переменная для суммы begin for i: =1 to 9 do a[i]: = random(100) // заполняем массив рандомными числами summa: = a[1] + a[2] + a[3] сложение трех элементов массива writeln(summa); // вывод суммы end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.