Найти фамилию владельца, машина которого осуществила максимальным пробег

@Nekris12 · Регистрация: 12.09.2010

Студворк — интернет-сервис помощи студентам

Помогите решить пожалуйста
2. Даны такие сведения о 20 владельцах авто: фамилия водителя, марка машины, и ее номер (целое число), пробег (целое число). Найти фамилию владельца машина которого осуществила максимальным пробег и количество машин, номер которых заканчивается цифрой 9

@andrei63 · 15.01.2011, 01:05

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
type baza=record
  marka:string;;;
   fam:string[10];
   nom:string;
   prog:integer;
end;
var a: array [1..10] of baza;
   I,max,k: integer;
   s:string;
 
begin
   for I:=1 to 3 do
   begin
      writeln ('введите фамилию:');
      readln (a[I].fam);
      writeln ('введите марку:');
      readln (a[I].marka);
      writeln ('введите номер:');
      readln (a[I].nom);
       writeln ('введите пробег:');
      readln (a[I].prog);
      end;
max:=a[1].prog;
for i:=2 to 3 do
if a[i].prog>max then begin max:=a[i].prog;
writeln(a[i].fam);end;
for i:=1 to 3 do
begin
s:=a[i].nom;
k:=length(s);
if s[k]='9'then writeln('9= ',a[i].fam);
end;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Nekris12 0 / 0 / 0 Регистрация: 12.09.2010 Сообщений: 35

	Найти фамилию владельца, машина которого осуществила максимальным пробег 13.01.2011, 16:36. Показов 1938. Ответов 1 Метки нет (Все метки) Помогите решить пожалуйста 2. Даны такие сведения о 20 владельцах авто: фамилия водителя, марка машины, и ее номер (целое число), пробег (целое число). Найти фамилию владельца машина которого осуществила максимальным пробег и количество машин, номер которых заканчивается цифрой 9 0

Найти фамилию владельца, машина которого осуществила максимальным пробег

Решение