Определить порядковый номер самого быстрого автомобиля

@boxer_001 · Регистрация: 05.11.2010

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

В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей.
Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть найден номер:
a) первого из них;
б) последнего из них.

@Alex1OPS · 15.11.2010, 22:04

Pascal

Program NF;
uses Crt;
const N=5;
var a:array [1..N] of word;
    imax,max,fimax,i:word;
 
begin
RANDOMIZE;
        clrscr;
        for i:=1 to N do readln(a[i]);
        for i:=1 to N do write(a[i]:5);
        max:=a[1]; imax:=1;
        for i:=1 to N do
        begin
                if (a[i]>=max) then
                begin
                    max:=a[i];
                    imax:=i;
                end;
        end;
        for i:=1 to 40 do
                if (a[i]=max) then
                begin
                fimax:=i;
                break;
                end;
        writeln('Первая встреченная машина с макс скоростью и ее номер=',fimax);
        writeln('Номер последней машины с макс скоростью=',imax);
readln;
end.

Добавлено через 2 минуты
Нужно добавить проверку на совпадение. Тогда финальный вид такой:

Pascal

Program NF;
uses Crt;
const N=40;
var a:array [1..N] of word;
    imax,max,fimax,i:word;
 
begin
RANDOMIZE;
        clrscr;
        for i:=1 to N do readln(a[i]);
        max:=a[1]; imax:=1;
        for i:=1 to N do
        begin
                if (a[i]>=max) then
                begin
                    max:=a[i];
                    imax:=i;
                end;
        end;
        for i:=1 to 40 do
                if (a[i]=max) then
                begin
                fimax:=i;
                break;
                end;
         if (fimax=max) then writeln('Номер машины с максимальной скоростью=',imax)
         else
        begin
        writeln('Первая встреченная машина с макс скоростью и ее номер=',fimax);
        writeln('Номер последней машины с макс скоростью=',imax);
        end;
readln;
end.

Добавлено через 1 минуту
вместо

Pascal

1	if (fimax=max) then writeln('Номер машины с максимальной скоростью=',imax)

надо

Pascal

1	if (fimax=imax) then writeln('Номер машины с максимальной скоростью=',imax)

Извините,торопился

@sheoz · 15.01.2016, 19:23

(В языке С++ тоже решайте пожалуста.....................

@Dialkord228 · 15.01.2016, 23:34

sheoz,

C++

#include <iostream>
#include <time.h>
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "rus");
    int imax, max, fimax;
    const int size = 40;
    int matrix[size];
    srand(time(NULL));
    // заполнение матрицы ГСЧ
    for (int i = 0; i < size; i++)
        matrix[i] = 1 + rand() % 400;
        for (int i = 0; i < size; i++)
            cout << matrix[i] << " ";
        cout << endl;
        max = matrix[1]; imax = 1;
        for (int i = 0; i < size; i++)
        {
            if (matrix[i] >= max)
            {
                max = matrix[i];
                imax = i;
            }
        }
        for (int i = 1; i < 40; i++)
            if (matrix[i] = max)
            {
                fimax = i;
            }
        if (fimax = imax)
            cout << "Номер машины с максимальной скоростью= " << imax << endl;
        else
        {
            cout << "Первая встреченная машина с макс скоростью и ее номер= " << fimax << endl;
            cout << "Номер последней машины с макс скоростью= " << imax << endl;
        }
    system("pause");
}

@sheoz · 16.01.2016, 18:10

почему ошибка 40-54-58-65 строки

@Dialkord228 · 16.01.2016, 18:14

sheoz, это вы мне?

@boxer_001 1 / 1 / 0 Регистрация: 05.11.2010 Сообщений: 9
		1
	Определить порядковый номер самого быстрого автомобиля 15.11.2010, 20:57. Показов 5137. Ответов 5 Метки нет (Все метки) В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть найден номер: a) первого из них; б) последнего из них. 0

@sheoz 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 8
	15.01.2016, 19:23	3
	(В языке С++ тоже решайте пожалуста..................... 0

@sheoz 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 8
	16.01.2016, 18:10	5
	почему ошибка 40-54-58-65 строки 0

@Dialkord228 7 / 7 / 4 Регистрация: 30.11.2015 Сообщений: 107
	16.01.2016, 18:14	6
	sheoz, это вы мне? 0

Опции темы

Определить порядковый номер самого быстрого автомобиля

Решение