Задать вопрос
5 августа, 02:55

Помогите переделать код на C#

Дан одномерный массив из n элементов. Требуется найти максимальный элемент и

отклонение от максимального для каждого из элементов. (Ввод элементов с клавиатуры)

var a:array[1 ... 100] of integer;

n, i, d, max:integer;

begin

writeln ('Введите количество элементов массива:') ;

readln (n) ;

writeln ('Введите элементы массива:') ;

for i:=1 to n do

readln (a[i]) ;

writeln ('исходный массив:') ;

for i:=1 to n do

write (a[i],' ') ;

writeln;

max:=a[1];

for i:=1 to n do begin

if a[i]>max then max:=a[i];

end;

writeln;

writeln ('Maximum=', max) ;

for i:=1 to n do begin

d:=max-a[i];

writeln ('Отклонение=', d)

end;

end.

+4
Ответы (1)
  1. 5 августа, 04:30
    0
    using System;

    namespace App {

    internal class Program {

    private static void Main () {

    Console. Write ("Введите количество элементов массива:") ;

    var a = new int[Convert. ToInt32 (Console. ReadLine ()) ];

    Console. WriteLine ("/nВведите элементы массива:") ;

    for (var i = 0; i < a. Length; i++) {

    Console. Write ($"Элемент номер {i} = ") ;

    a[i] = Convert. ToInt32 (Console. ReadLine ()) ;

    }

    / / используется foreach вместо for потому что это стандартный инструмент для перебора которого нет в паскале

    Console. WriteLine ("/nисходный массив:") ;

    foreach (var element in a) {

    Console. Write ($"{element} ") ;

    }

    var max = a[0];

    foreach (var element in a) {

    if (element > max) max = element;

    }

    Console. WriteLine ($"/nMaximum={max}") ;

    / / убрана ненужная переменная

    foreach (var element in a) {

    Console. WriteLine ($"Отклонение={max - element}") ;

    }

    Console. ReadKey () ;

    }

    }

    }
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите переделать код на C# Дан одномерный массив из n элементов. Требуется найти максимальный элемент и отклонение от максимального для ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Исправить ошибки в паскале program massiv2; type mas=array [1 ... 100] of integer; var a: = Max; i, n, min, max, b : integer; недопустимый символ: = (д/б просто :; неизвесмтное имя типа max) begin writeln ('n=') ; readln (n) ;
Ответы (2)
Program a2; var n, i, min, max, x:integer; begin Writeln ('Введите колицество человек в классе:') ; Readln (n) ; Writeln ('Введите рост 1 ученика:') ; readln (x) ; min:=x; max:=x; for i:=2 to n do begin Writeln ('Введите рост ', i,' ученика:') ;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)