Составить программу, которая формирует файл записей, содержащих информацию об автомобиле (название модели, год выпуска, цена, цвет), а также найти в массиве записей и вывести на экран названия моделей красного цвета, випускалиcя в 2000 году. p.s , заране огромное .

👇

Увидеть ответ

Ответ:

senazubik63kfkd

10.09.2022

Нууу, предположу что всего 10 машин, программа будет правильна, потом можешь изменить, смотря для чего нужна.

mod(10), col(10) as string

god(10), zen(10),i as integer

Формирование массивов из машин:

for i=1 to 10

read(mod(i)) - Вводим модель

read(col(i)) - цвет

read(god(i)) - год выпуска

read(zen(i)) - цену

Нахождение:

for i=1 to 10

if col(i)="Красный" and god(i)=2000 then

write(mod(i));

end.

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

Открыть все ответы

Ответ:

Sasha23333000

10.09.2022

//Задание №1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 31;
var a:array[1..m] of integer;
i,s,n:integer;

begin
for i:=1 to m do begin
    a[i]:=random(-20,20);
    if a[i]>0 then begin
      s:=s+a[i];n:=n+1;
    end;
end;
println('Температуры за месяц :'); a.println;
writeln('Средняя в оттепель :',s/n:0:3);
end.

Тестовое решение:
Температуры за месяц :
16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5
Средняя в оттепель :9.000

//Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 10;
var a:array[1..m] of integer;
i,s,n:integer;

begin
for i:=1 to m do begin
    a[i]:=random(-20,20);
    if i mod 2<>0 then s:=s+a[i];
end;
writeln('Исходный массив :'); a.println;
for i:=1 to m do
    if i mod 2=0 then a[i]:=s;
writeln('Сумма на нечетных местах = ',s);
writeln('Изиененный массив :'); a.println;
end.

Тестовое решение:
Исходный массив :
-6 15 5 -11 18 4 17 -9 -15 -16
Сумма на нечетных местах = 19
Изиененный массив :
-6 19 5 19 18 19 17 19 -15 19

4,8(64 оценок)

Ответ:

denpop648p08mew

10.09.2022

ответ:

номер 1-интернет - всемирная паутина, которая хранит в себе тонны информации. он заменяет нам любой источник информации и облегчает понимание.

газеты/журналы - письменные, или же стандартные способы получения информации на бумаге.

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

постеры/афиши - бумажки расклеенные по городу или же огромные постеры размещенные на зданиях. привлекает внимание, тем самым увеличивает число интересующихся.

радио - звуковая информация, уже перестает быть актуальной. в основном, радио - это не новости, а что-то более развлекательное.

номер 2-к примеру, кто-то описывает картину на бумаге (повествованием), тем самым переводит графическую информацию в текстовую. рассказывает вслух - уже в звуковую. и т. д.

номер 3-написание дипломного проекта из своего же курсового, время прошло законы изменились и теперь за одни и теже административные проступки другие наказания, но дабы не писать с нуля все это лучше обработать свой же курсовик соответственно изменив его содержание

номер 4-молекула днк

оптические носители

египитские папирусы

бумага

4,8(78 оценок)

Это интересно:

Здоровье

23.01.2022

Симуляция головной боли: как это возможно и зачем это нужно?...

Компьютеры-и-электроника

24.04.2023

10 простых способов, как достать сияющего покемона...